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13-5 Sep-1984 t 93: 78: 744 org 1 
14-Sep-1984 12:48:14 DISKSVMSMASTER: CN NCP SRC NCPNETIO. 832; 7° (1) 


; 1 1 ZTITLE ‘Network 1/0 we : 
; ¢ § MODULE NCPNETIO (IDENT = ‘v0Q4-000' : 
; ADDRESSING_MODE (EXTERNAL=GENERAL) ; 
ee ADDRESSING-MODE (NONEXTERNAL=GENERAL)) = : 
3 5 5 BEGIN : 
: 0 i : 
3 3 08 ; ee en eens tee a TORS SR eee P 
; Hid * ; 
ae 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 3 
3 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ; 
i 4g QO1g 1 is ALL RIGHTS RESERVED. ‘ ; 
: 14 Sor 1 is THIS fe “trcke is FURNISHED UNDER A LICENSE AND MAY BE USED AND gt hs * : 
: 15 15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® ° 
H 16 B018 1 !® INCLUSION OF RHE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * . 
; 18 B08 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; i st : ‘* TRANSFERRED. % : 
Py :* * e 
: 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC cs * . 
H ¢ 00 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
; Z 8 : is CORPORATION. * : 
° . ® e 
H 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 $6 00 $ 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
3 7 00 1! * 3 
. 2 0028 1 !« * : 
3 . ot 34 ! athena hatin a nina eaiaintatiinne : 
: 31 0031 1— ; 
3 ¢ 0036 1 !¢¢ 3 
; Z i ! FACILITY: Network Control Program (NCP) : 
: 35 0035 1 ! ABSTRACT: : 
; 6 0036 1! ‘ : 
g 7 0037 1! This module contains the routines which establish and communicate : 
: $8 sits : over a logical Link to NML on the executor node. : 
: 40 9040 ! ENVIRONMENT: VAX/VMS Operating Systen 3 
; 4¢ 004g | AUTHOR: Darrell Duffy , CREATION DATE: 30-October-1979 3 
he 0044 1 ' MODIFIED BY: ; 
3 45 45 1! $ 
; 6446 rg 1! v03-005 PRDO097 aul R. DeStefano 19-Apr-1984 3 
3s 6 667 47 1! Disable de Nedithen of area to 1.n if area is not 3 
3 $8 Boe : specified (defeats PRDO087). : 
: 50 50 1: V03-004 PRD0094 Paul R. DeStefano 09-Apr-1984 : 
0051 1! Modified NCPSREADRSP and gt tg patina’ to 3 
3 26 st 4 1! interpret the error detail when the error status 3 
a S ie e is NMASC_STS_OPE (operation failure). Additional 3 
3 ¢¢ 54 1! text is how appended to the original error text : 
3 5 3? : in the nice message based on the detail. : 
: § 0089 1! v03-003 PRDOO087 Paul R. DeStefano 27-Mar-1984 : 
| 
| 
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14-Sep-19 
; 33 ; 1! Make ig EXEC NODE n default to 1.n if area is not ; 
; : : speci : 
; 1 1 v03-002 RPGO002 Bob Gro 20-Apr-1983 ; 
; 6¢ 1! Add NCPSCONERR for the CONNECT routine to use to : 
; o7 : process errors. : 
: 65 65 1! v03-001 RPGOOO1 Bob Grosso 16-Mar-1983 ; 
: ¢] bes ; Update version number checking for version IV. ‘ 
; 68 068 | i vO09 —- TMHO009 Tim Halvorsen 11-Jan-1982 ; 
; 9 1} Save verison number of NML server in LCB. ‘ 
: 4 Bry : Make NCPSOPENLINK a global routine. ‘ 
ee. 007 1 i vO08 = TMHO008 Tim Halvorsen 15-Dec-1981 3 
: ie ote : Print detail messages for FCO NICE errors. ‘ 
fee. 0075 1 i vO07 ~—« TMHO007 Tim Halvorsen 22-0 t-1981 : 
: re Bare : Fix the spelling on some messages. : 
: 78 0078 | i v006 — LMK0006 Len Kawell 19-Sep-1981 ; 
: site ! : Change version checking to allow current or greater and v2.0. > 
; Hi 9081 1/ vOOS § TMHOOOS Tim Halvorsen 11-Aug-1981 : 
; 8 oes 1} Use different detail text table if Looking up oc ysten- ‘ 
fae 00835 1! spect tc entity number. wen formatting a parameter . 
; BS 0084 1! detail, use he ss ned gnc’ ty in NCPSGL ENTITY rather ; 
= 0085 1! than the option byte » since it doesn't fell whether : 
; 0086 1! its a system-specific entity or not. Only supply a ‘ 
; oT 0087 1! comma foll sowing an NAL response message if there is ‘ 
: 4 poe ' a non-biank detail following it. ; 
; 90 0090 1 v004 —_ TMHO004 Tim Halvorsen 10-Jul-1981 ; 
; Wh 0091 1! Change all non-local references to use general gderees ing. ; 
$ 4 R096 1! Use new callable NML whenever we are communicating with the ‘ 
: + Boed : local node without any access control string. : 
; 95 0095 1} v0O3 — TMHO003 Tim Halvorsen 06-Jul-1981 : 
; = % 0096 1! Remove version # checks on connect to allow communication : 
; Ww 0097 1! between a 2.2 NCP and a 2.0 NML, which normally should not be ; 
: 4 48 : : allowed, but will be for rnd after 2.2 release. : 
: 100 0100 1: v02-002 LMK0001 well 29-Sep-1980 . 
: ii ot ; ' : ene SDELMBX catt s “SDASSGN call. : 


z2> 


Pp 


VAX-11 Bliss-32 Ln Phat 
DISKSVMSMASTER: CNCP.SRCINCPNETIO 


A 
I 


Network 1/0 Routines 
Definitions 


oO 
z 
33 


. 
~ 
oO 
wo 
uw 
> 
4 
VY 
& 
a 
Yv 
2 
. 
o 
ow 
~ uw 
@ 4 
v vu 
2 om 
~ 2. 
av 
= oz 
fe) ~ 
° co = 
~ ww: 
o oaa- 
~<t> « 
Dad c=zr & 
Vv qvuwv 
v xraen 
c se a 
c 7 ww 
oe °o -z 
- wow ™_ 
™N = J © 
~~” at ~=Ee 
ad c i 
° °o One 
h— cere » ro< 
Wie @ Ye -2- = 
ares a pid ed 
amm z ecoepee 
ee os oo oe 
“uu WwW fh ec a tell 
woFD > "n>> = 
saad ia 4: 4 oe aa 
wiidctatoct >aoam —— 
2a >>> t+ eee] ~ vwwv 
a>oo dato <u ° nn 
<xo2z2>2 =- aaa << 
>z oO @azw c 
oO oe oo @ oe = — z oO uu 
ae w wow —_J oe oe oo 
bad aww & AAA we Vw 
i) ° “mae 2&2 ”"~7 . wu 
Cc wm Zw-W0aw 233 °o aa. 
°o _ Qe IMA YwW ” oe a nn 
ng 2 V2jIwwE Mow eee ” =" 
cod w AZZM”OwWa ee oa 82 
- -_ wowoozad ” >>> So Cc 
c z Zzja-us bs iv) fo ie og > - ‘6 
- o —MOMWVMwar- 4 <<a ~ og 
- Yv H“PAPAAAAXAM Land cae > - AA 
Q aaaaaoaa we @aoaw ” @ aa 
a ve VYVVYVVYF VY te au oY 
ad oO S2Z2222%22 -+ w a ee a Load 22 id 
a wo ive) 
w a 2 oO - 
4 —_ < 4 [og —« 
- s < Vv wv > 
- 3 2 = oe a 
@ - <= al uw 2 
” oO Coal 
ee —ememe “ ome omen etme meme @ -- 


Cee seek eel gel cee oe ol ge oe cel cee gee eel ol el ee cel ch cel oe ol eel cee ek el el oh eh eh oh ae oe oe ol ak eek ek nek ek ok ee ee ee 


COOCOCOCOOOOCOCOOSOOSOSOSOSOSOSOSOSOSOSSOSOSOSSSOOSOSOSOSOOSOSOOSOSSCOOO 
aaaa 


NOR-DPOK— AIM TNOR OPO AUIM NOR rs Oon-nmsnonre 
pS Ae ae + pe Mona AN A AH ce SG NR eh AN te 0 BO tte Seb be 


Dell cel eel el el cel ee cel oe ee ee oe el eh el ee ol el eel el ee ee el co el eh ee eh el oe ok ek ek ek ae ek ok ek oe ee ee oe ed 


PP ORES HS ESOS HSER ES ES HES HS HS HS HS HS HS SR FS TS ES SS TS HSS FSFE FOSS SS FR FOES SR TS FS FSR SS TS PS MOSS FOSS 


—_———- —— 


2 


15 
1/0 Routines 18-Sep 138% 73:96:48 Ax-11 iss-3 es shes Page 4 
14-Sep-1984 12:48:14 DISKSVMSMASTER: CNCP.SRCINCPNETIO.B32;1 (3) 


ions 


wey 


30 
9 


=" 
oO 


i OWN STORAGE: 


arte ter Ser Serer e) 


: Mailbox and Response buffers 


PUSSIES ee? 


NCPSGT_MBXBFR : VECTOR PUcPse mexsis. BYTE), 
NCPSGT_RSPBFR : VECTOR CNCPSC_RSPSIZ, BYTE] 


4 Data to maintain the Link control blocks for the executor 


GLOBAL 
NCPSGT_EXECLCB : BBLOCK CLCBSC_SIZE], 
NCPSGT_TELLLCB : BBLOCK CLCBS$C_SIZEJ, 


NCP$GL_OLDLCB, 
NCPSGL_EXELCB 


OWN 
NML_RESP_QUEUVE: VECTOR (2) ! Local NML response queue header 
INITIAL (NML_RESP_QUEUE ,NML_RESP_QUEUE) ; 


; EXTERNAL REFERENCES: 


EXTERNAL 
NCPSGL_FNC_CODE, 
NCPSGL_ENTITY; 


EXTERNAL ROUTINE 
NMLSINITIALIZE: NOVALUE, 
NMLSPROCESS NICE: NOVALUE, 
NMLSTERMINATE: NOVALUE, 
LIBSGET_VM, 
LIBSFREE_VM 
NCPSFORMATPARM : NOVALUE; 


Function code for command message 
Entity number for command message 


Initialize NML sharable image 
Process a single NICE message 
Terminate NML sharable image 
Allocate dynamic memory 
Deallocate dynamic memory 
Format a parameter as text 
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NCPNETIO Network 1/0 Routines Wi $1984 23:46:44 VAX-11 Bliss-32 V4.0-74 P 
youn B00 ACTSVRB_TELL Process TELL Verb 12-808- 1382 93:28:47 NEC SVMGMASTERCCNCE SRCINCPNETIO.B3204%" (3 
ae 193 1 &SBTTL ‘ACTSVRB_TELL Process TELL Verb’ 
: 137 196 } GLOBAL RO tINe ACTSVRB_TELL = ! 4 
: 199 196 1 !+4 
: Bo 13 } FUNCTIONAL DESCRIPTION: 
: O¢ 138 1/ Action routine to setup an executor node for one command. 
; 2 0200 1! Current executor LCB is saved and a newone is setup. 
: be 8 1 : } A Link is opened to the new executor node. 
; 06 08 FORMAL PARAMETERS: 
: 208 $8 1 i NONE 
; 209 0 6 1! 
: ‘9 8 4 : : IMPLICIT INPUTS: 
; \¢ 8598 25 NCPS$GL_OLDLCB Save the current executor lcb 
3 2 0210 1! NCPSGL_EXELCB The current executor lcb 
; i ae ; NCPSGT_TELLLCB LCB to use for tell 
; 16 0318 IMPLICIT OUTPUTS: 
; 18 0215 1 NCPS$GT_TELLLCB Link opened 
; 219 0216 1! 
: 220 0217 1 ! ROUTINE VALUE: 
; $$) Osis : COMPLETION CODES: 
: $58 0520 1! Success or error signaled 
> 224 0221 1! 
s 225 bese 1 ! SIDE EFFECTS: 
; 226 0223 1! 
3 ger 0224 1! NONE 
: 228 oSs2 1! 
3 $$P 0226 1 !-- 
; 230 0227 1 
: 231 0228 i} BEGIN 
3 232 5594 
3; 233 0230 2 NCP$GL_OLDLCB = .NCPSGL_EXELCB; ' Save the current executor 
> 234 0231 2 NCPS$GL-EXELCB = NCPS$GT_TELLLCB; ' Set the new one 
s 239 OS36 CPSBLBLCB (.NCPS$GL_EXELCB); ' Build the Link control block 
3; 236 023 NCPSOPENLINK (.NCPSGL_EXELCB); i Open the Lin 
3; 237 0234 RETURN SUCCES ! Always succeed for action 
3; 238 0235 
3; 239 0236 1 END; 


-TITLE NCPNETIO Network 1/0 Routines 
-IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE ,2 
3A 3A 80000 P.AAB: . ASCII \::°19=/\<0><0><3><4><0><0> 
0 ¢0 000D ASCII \ *\<0> 
44h BRO a6 P.AAA: .LONG 27 
000000" 20 ADDRESS P.AAB 
-PSECT SOWNS,NOEXE,2 


—K—TOAMWMNOOCWZ ES KOCH TO MMOS SS KOK TOM OOCOZ SE KOCH TO MM IOOOZ Sr KCK TOM IOCOW 


N T10 Network I/ 
vOe~600 ACTSVRB_TE 


oO 


00000000" 00000000° 00000 NML_RESP_QUEUE: 
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Routine 18-Sep-1984 $3:96'46 VAX-11 
L acess TELL Verb 14-Sep-1984 2:48:14 DISKSVM 


s-32 V 
TER: 


> 
>-—. 
= 
m “ 


«ADDRESS NML_RESP_QUEUE, NML_RESP_QUEUE 


«PSECT 


00000 spite ade “1 ee 

00028 NCPSGT_RSPBFR:: 
-BLKB 

00410 NCPS$GT ~EXECLCB:: 


-BLKB 
tet NCPSGT_TELLLCB:: 
-BLKB 


off -BLKB 

0090 NCPS$GL _OLDLCB:: 
-BLKB 

00504 NCPSGL_EXELCB:: 
-BLKB 


NCP$Q_OBJSPEC= 
EXTR 


-EXTRN 
-EXTRN 
EXTRN 
EXTRN 
EXTRN 
PSECT 
a 00000 -ENTRY 
52 00000000 00 9E 00002 MOVAB 
FC Ae 62 D0 00009 MOVL 
62 84 A2 YE 0000D MOV 
62 0D 00011 PUSHL 
00000000V 00 01 FB 00013 CALLS 
62 DD QOOIA PUSHL 
00000000v 00 0} Fe 0001C CALLS 
50 01 00 00023 MOVL 
04 00026 RET 


; Routine Size: 39 bytes, Routine Base: S$CODE$ + 0000 


SGLOBALS ,NOEXE ,2 


P.A 
NCPSGL_ FNC_C ODE 
NCPSGL geNtTTY NMLSINITIALIZE 
NMLSPROCESS_ NI 
NMLS$T TERMINATE, LIBSGET 
LIBSFREE_VM, cbse OATS ARM 


SCODES ,NOWRT ,2 


ACTS$VRB_TELL, Save R2 
NCPS$GL_EXELCB, R2 
NCPS$GL~EXELCB, NCPS$GL_OLDLCB 
NcPeeL ~TELLLCB, NCPSGC_EXELCB 


rs] 
NCPS sue ELCB 

P NCPSOPENL INK 
4 RO 


CNC OSRCINCPNET IO. 832: ee 
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0 Routin 9° 138% $3:46:46 VAX-11 Bliss-32 ones Page 7 
p-1984 12:48:14 DISKSVMSMASTER: CNCP.SRCINCPNETIO.B32;1 (5) 
ZSBTTL ‘NCPSUNTELL Remove the TELL Executor Node’ 

GLOBAL ROUTINE NCPSUNTELL :NOVALUE = : 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


If the Last command had a TELL prefix, the Link to the temporary 
executor is broken and the previous executor node is restored. 


: FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


NCP$GL_OLDLCB Pointer to previous executor LCB 
NCPSGL_EXELCB Tell executor LCB 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
IF .NCPS$GL_OLDLCB NEQ 0 ! Is there a TELL outstanding? 
THEN BEGIN 
NCPSCLOSELINK (.NCPSGL_EXELCB); ! Close the Link to William TELL 
NCP$GL_EXELCB = .NCPSGC_OLDLCB; ! Restore the old Link 
iCB = 0 ! There is no William TELL now 


NCPS$GL_OLD 
END 


RETURN 
END; 


0004 000 ENTRY NCPSUNTELL, Save R2 ; 0239 

52 00000000 00 9 00 MOVAB NCPSGL_OLDLCB, R2 ; 
62 D $8 TSTL NCP$GL_OLDLCB ; 0273 

10 1 0B BEQL 1$ : 
04 A2 DD 00000 PUSHL NCPS$GL_EXELCB ; 0276 


NCPNETIO rk 1/0 Routines R76 ep-1984 144  VAK-14 Bliss-32 v4. 
Youn 500 REPLUMTELL. Roneve’ the TELL Executor Node 12-2007 1382 $3289 PRA Rhl tea ee see Swcenerio.es20t% « 
00000090v 09 19 CALLS #1, NCPS$CLOSELINK ; 
, 83 68 1 MOVL  NCPS$GL_OLDLCB, NCPSGL_EXELCB ; 0277 
18 es CLRL NCPS$GL“OLDLCB + 0278 


; Routine Size: 30 bytes, Routine Base: $CODE$ + 0027 


Network 1/0 R 18-06, 1984 o ¢3'¢ 74 oe VAX-11 Bliss-32 V a 
ACTSVRB _SETEXEC PSE bLish the Executor Node 12: ~3ep-1986 DISK KSVMGR TER: ence. See NCPNETIO.B32- a (6) 
: 289 4 1 2SBTTL ‘ACTSVRB_SETEXEC Establish the Frecuter Node’ 
3 ay 5 ! GLOBAL ROUTINE ACTSVRB_SETEXEC = 
3 35 5 1 !e¢ 
3 4 ss ! FUNCTIONAL DESCRIPTION: 
; 295 90 1! ag is an action routine to establish a Atak to an executor node. 
; 38 0291 1! ad ¢ Pests Link to an executor is broke 
; 2g 0 3 1! CB is built from data left by the oerse and a Link is 
: 298 0295 1! ae ° 
: 299 0294 1! 
3 00 8 95 1 ! FORMAL PARAMETERS: 
: 303 0599 1 | NONE 
5 08 0298 1! 
3 04 0299 1 ! IMPLICIT INPUTS: 
; 305 0300 1! 
3 08 0301 1! NCP$GL_OLDLCB Pointer to the lcb for the exec if tell active 
S.. Ban8 1! NCPSGL_EXELCB Pointer to the lcb for the exec 
: 4 Benz : } NCPSGT_EXECLCB LCB to be used by the exec 
; 10 page 1 ! IMPLICIT OUTPUTS: 
; 11 Bang 1! 
3 \¢ 307 1! NONE 
; 351 0308 1! 
3 14 0309 1 ! ROUTINE VALUE: 
3 15 0310 1 ! COMPLETION CODES: 
3 16 0311 1! 
s S17 bai§ ,: Success or an error signaled by called routine 
; 18 031 1! 
: 19 0314 1 ! SIDE EFFECTS: 
; $59 0315 1! 
s el O318 ye NONE 
5 $56 031 1! 
; ie 0318 1 !-- 
; 326 0319 1 
3 32d 0320 BEGIN 
: 326 0321 
s ter O35¢ NCP$GL_OLDLCB = 0; ' There is no tell active 
; 328 032 NCPSGL-EXELCB = NCPS$GT ofXECL CB: ! The executor data pointer is here 
: 44 baS¢ NCPSCLOSEL INK (. NCPSCL EXELCB); ' Close any previous Link 
3 83 5 NCPSBLOLCB (.NCPSGL EXELCB); ' Build the lcb for the new executor 
s 35) 326 NCPSOPENL INK CNCPSCL _EXELCB); ! Open the Link to the new NML 
: 3 $34 RETURN SUCCESS ' Action routine is always successful 
; 4334 0359 1 END; 
0004 00000 -ENTRY ACTSVRB_SETEXEC, Save R2 ; 0285 
52 00000000' 00 9€E 0000 MOVAB NCPSGL_EXELCB, R2 3 
FC OA 4 8 CLRL NCP SOL “OLDLCB : 8 § 
62 FFOC 6€¢ € 0000C MOVAB CP$GT-EXECLCB, NCPSGL_EXELCB F 
DD 00011 PUSHL NCP —_ ties ; 0324 
00000000v 00 1 FB 00013 CALLS NCPSCLOSELJNK ; 


thors Utes Oe ee abLish the Executor Node 15-eo- 1984 93; 28: 1% bt sk VMOHAS TERS CWC SRCINCPNETIO. B32; nyse 


00000000v 00 84 Pe it ata ; ati tah ; 
DD PUSHL \ ie XELCB : 

00000000v FB 000 CALLS Ne OPENL INK ; 
"pans RYE : 


; Routine Size: 48 bytes, Routine Base: S$CODES + 0045 


(b3 
0325 


: 0326 


; 0327 
; 0329 
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ACTSVRB_CLEXEC Close Link to the Executor 12-808- 1 9be $3: :14 DE EKSVMGHASTERS EWC. SRCINCPNETIO.B32¢4° (7) 
5 9 1 ZSBTTL ‘ACTSVRB_CLEXEC Close Link to the Executor’ 
3 5 ; GLOBAL ROUTINE ACTSVRB_CLEXEC = ' 
: 339 1 !44 
3 re : ! FUNCTIONAL DESCRIPTION: 
3 ri} $ 1! This is an action routine which closes the Link to the current 
5 1! executor and opens a Link to NML on the local node. 
3; 344 s Ff The local node is known as ‘::' so we use the obj spec only 
: $2 iB : to open a Link to NML. 
5 47 8 41 1 ! FORMAL PARAMETERS: 
: 348 rk a 
; 49 8 4 1! NONE 
; 350 44 1! 
s 351 0345 1 =! IMPLICIT INPUTS: 
3 28 bae$ 1! 
s 0347 1! NCPSGT_EXECLCB LCB to be used for the executor 
3 $2¢ 0348 1! NCP$GL_OLDLCB Pointer to lcb for tell exec 
s Zoe 0349 1! NCPSGL_EXELCB Pointer to lcb for exec 
; 356 0350 1! 
3 $20 0351 1°! IMPLICIT OUTPUTS: 
; 358 ba26 1! 
; 359 0353 1! NONE 
: 360 0354 1! 
; $0! 0355 1 ! ROUTINE VALUE: 
3 o¢ 0356 1 ! COMPLETION CODES: 
; 0357 1! 
; $00 0358 1! Success or error signaled 
; 365 0359 1! 
; 66 0360 1 ! SIDE EFFECTS: 
: 367 0361 1! 
; 368 Beg 1! NONE 
; 369 0365 1! 
; 370 0364 1 !-- 
s Sr 0365 1 
. a 0366 BEGIN 
: Sf. 0367 
3; 374 0368 LOCAL 
3 sre 0369 LCB : REF BBLOCK CLCBSC_SIZE], ! Address of the lcb to be used 
: 376 0370 PTR ! General pointer 
: 377 0371 $ 
; 378 Bere 
3 Le b8o7 NCPS$GL_OLDLCB = 0; ! No tell is active 
a.) 0375 LCB = NCPSGT_EXECLCB; ! The lcb of interest 
: 38 6376 NCPS$GL_EXELCB = .LCB; ' The widely used pointer to it 
3 ts a4 NCPSCLOSELINK (.LCB); ' Close it if its active 
; 385 379 
; 386 80 ‘ 
; 387 0381 ! Set a pointer to the NCB and put the obj spec on. The local node 
: 388 0 a } will be used since we are using no node name and :: only is always 
; 389 0 ; the local node. y 
: 390 0 : Note we are using no access control, so the default access will be 
: 33 tH used for the object 
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VOe~000 ACTSVRB_CLEXEC Close Link to the Executor 12286871982 $3:08;44 DISKSVMSMASTER: cNCe” she NCPNETIO. B32" ys ee B 
: 393 0387 
; 3% § LCB CLCBSL_NCBPTR] = LCB CLCBS$T_NCB); 
; 0 PTR = .LCB CLCBSL_NCBPTR); 
: 38 91 
3 38 3 PTR : CHSMOVE 
; 0394 -BBLOCK CNCP$Q_OBJSPEC, DSC$W_LENGTH] 
: 401 0395 -BBLOCK ENCPSQ"OBJSPEC, DSCSA-POINTERS, 
: 40 0 %6 “PTR 
a: . 
: 405 38 LcB LCBSL -NCBENT NT] = .PTR = LCB CLCBST_NCB); 
> 406 0400 LCBSB~STS) = 0; 
: 407 0401 
; 608 ot) ! Link will be opened on first write 
> 409 049 RETURN SUCCESS 
: 410 0404 
: 411 0405 1 END; 
01FC 00000 .ENTRY ACTS$VRB CLEXEC, Save R2,R3,R4,R5,R6,R7,R8  ; 0331. 
58 00000000' 00 9€E 00002 MOVAB NCPS$GL -OLDLC , RB ; | 
68 D4 00009 CLRL NCP$GL~ ait > 0373 
56 FF10 C8 9€ 00008 MOVAB NCPSGT~ PXECL CB, LCB + 0375 
04 As 56 00 00010 OVL LCB, NCPSGL_EXELCB : 0376 
56 DD 00014 PUSHL LCB : 0377 
00000000v 00 01 FB 00016 CALLS #1, NCPSCLOSELINK F | 
57 12 Ag 9E 0001D MOVAB 18(R6) : 0388 
OE As 57 D0 90021 MOVL R77, fatLep) : | 
5 OE Ab DO 00025 MOVL  14(LCB), PT > 0390 | 
50 00000000' 00 dO 000 9 MOVL_ NCP$Q_OBUSPEC+4, RO : 0395 
63 60 00000000' 00 28 00 0 MOVC NCPSOU OBJ SPEC (RO), (PTR) : 0396 | 
OA Ab 5 7 g 000 SUBL PTR, 10(L¢B) : 0399 | 
66 94 90030 CLRB te ) : 0400 
50 01 DO 0003F MOVL #1, RO > 0403 
04 00042 RET : 0405 | 


; Routine Size: 67 bytes, Routine Base: S$CODE$ + 0075 
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; 413 $ 1 ZSBTTL ‘NCPSBLDLCB Build an Link Contr Lock’ 

3; 416 4 1 ROUTINE NCPSBLDLCB (LCB) :NOVALUE = ! 

s oz 209 | tee 

; ‘i? 410 i FUNCTIONAL DESCRIPTION: 

: t18 tig 1 i This routine builds the contents of an LCB (Link control block) 
: 420 415 1! from information in left around by the parse. 

; 421 0414 1! The nodename which may be a logical name, is translated 10 times or 
3; 4 g 0415 1! until it does not translate further, which ever is first. 

; 4 Beis 1! If access control is provided with the node spec, it is appended to 
; 4626 eh -.. the translation after any access control is stripped from the 

; 425 16 #1! translation. if no access control is provided in the node spec, 
: 426 0419 1! it any be specified in the logical. The logical name cannot contain 
; 2 . Bs 9 : zt. The translation may or may not contain ::. 

; 4 3 04 ‘ FORMAL PARAMETERS: 

: rt} 8 : : ; LCB: Address of the Link control block 

: 438 04 6 t IMPLICIT INPUTS: 

: 435 0428 1! PDB$G_VRB_XID Node spec string 

: 436 Bog? 1! ACT$GO_ACTACC_DSC Descriptors of access control 

3; 437 0430 1! ACT$GQ_ACCPSW_DSC 

; 438 0431 1! ACT$GQ_ACCUSR_DSC 

3 rhe okt) : : ACTSGL_XIDACC_Q True for access control in node spec 

> 441 0434 1 ! IMPLICIT OUTPUTS: 

3 «44 0435 1! 

Shee be3 1 | = 

> 445 0438 1 | ROUTINE VALUE: 

: 446 0439 1 ! COMPLETION CODES: 

3 447 0440 1! 

baer Bat Pees 

> 450 0443 1 | SIDE EFFECTS: 

3; 451 0444 1! 

; 452 0445 1! NONE 

3 453 0446 1! 

3 6454 0447 1 !-- 

: 48 $ce9 2 BEGIN 

. oo oe 

; 459 Be 36 LCB : REF BBLOCK ! Pointer to an Link control block 
tea , 

: 46 455 LITERAL 

: 46 2$ RSLSIZ = 64 ' Size for tranlation buffer 

: age 438 , 

: 4 45 LOCAL 

2 16? se RSLBUF : VECTOR CRSLSIZ, BYTE], ! Translation buffer 

; 468 461 RSLDSC : VECTOR . ! Descriptor of buffer 

; 4669 0462 RSBDSC : VECTOR ‘ ' Descriptor of whole buffer 
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; 470 463 STATUS, ' Return status of translation 
; 471 464 ACCPTR, ! Pointer to original access control 
: tis ret ALL CHT» i Size of access control 
: 474 48? CTR’ 
; 475 4 8 ; 
§ rh rf 
; 47 470 EXTERNAL LITERAL 
3 rth} of NCP$_INVACC ! Invalid access control signal 
: 480 238 : 
3; 481 be ee EXTER ~ 
3; 6 ¢ 475 ACT$GQ_ACCACC_DSC, ! Descriptors for access control 
; 48 pe78 ACT$GQ_ACCPSW_DSC, 
> 484 047 ACT$GQ_ACCUSR_DSC, 
; 485 0478 ACTSGL-XIDACC_Q, ' Access control present in nodespec 
: i] pore PDBSG _VRB_XID™ ! Nodespec counted string here 
: 688 Oc8) : 
; 489 48 
; 490 048 ‘ 
; «4491 484 } Obtain the node spec and strip trailing colons 
: 3 bess 5 
3 494 0487 PTR = BBLOCK CPDBS$G VRB_ XID, POBST_DATA]; ! Obtain node spec string 
; 495 ot CTR = CHSRCHAR_A A (PTR); ! And its size 
: 49 0490 DECRA IDX FROM .PTR + .CTR - 1 ! Strip off trailing :: to 
3 re be - TO .PTR ! Begin translation 
: 500 049 IF CHSRCHAR (. IDX), EQL :! 
; 501 0494 THEN CTR = .C 1 
; 206 0495 ELSE EXITLOOP 
; 0496 3 
; 504 0497 
; 4 4 RSLDSC 0 (. ,. PTR. RSLBUF ); pcey We reoyts Sutter 
: 209 00 RSLDSC = RSLBUF; ' . 
: 209 03 nsepst = RSLBUF : ' Describe whole buffer too 
; = 3 
3; 510 0 
3 Sit 04 IF .ACTSGL_XIDACC_Q ' If Access control specified 
3 \¢ 05 THEN seein ! Strip it off before trans 
: 14 oF ACCPTR = be! CH (.CTR, .PTR, ‘''*); ! Find it 
: 515 8 RSLD psc [ TPTR - .PTR: ' Shorten descriptor 
3 \¢ 09 Soa = .CTR = .RSLDSC fO4 ' Size of our access control 
: 518 
: 19 
3 0 


PUP PUPP PVA PAPAIN & 


SOOSCOOOOOCOOOCOOOOOSooOoOo 


PUPUPVDPVDPVPVPTPV SVT ASPV SIS I 


10 

Si 
: 18 pecan IDX FROM 10 TO 1 ! Translate logical 10 deep 
; 1 BEGIN : 
Z 4 \ STATUS = $TRNLOG ! Obtain one translation 
5 P LOGNAM = RSLDSC, ' Here is the name to trans 
6 P 051 RSLLEN = RSLDSC (0), ' Return the length here 
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yon 600 LOLCB Bui td an Link Control Block 12-808= 1382 93:2 214 NT EKSUMGHASTERSENCP. SRCINCPNETIO.B3204°° 
f P ened = RSBDSC ! Return the string here 
9 . 
9 iF NOT .STATUS ! If any error 
é -STATUS EQL SS$_NOTRAN ! or no translation 
THEN EXITLOOP ' we are done 
END 
5 ; 
537 IF .ACTSGL_XIDACC_Q ! If node spec had acc control 
THEN ! Use as override 


BEGIN 
PTR = CHSFIND_CH (.RSLDSC [0], .RSLDSC os a 


41 If CHSFAIL (PTR) no acc in logical 
sez : PTR = .RSLDSC C1] + .RSLDSC (0) ! Add ours at end 

545 PTR = CHSMOVE (.ACCCNT, .ACCPTR, .PTR); ! Add our acc ctl at end of 
246 RSLDSC CO] = .PTR = .RSLDSC [1] i translation 

47 END 

548 s 

549 

550 PTR = LCB CLCBS$T_NCBI; ! Set pointer to start 
22 sia ti ! Copy node spec to lcb 
22g -RSLDOSC (OJ, 

554 -RSLDSC (C1J, 

555 .PTR 
556 ); 
320 CTR = .RSLDSC (0); ! Set the counter for it 
559 DECRA IDX FROM .PTR + .CTR = 1 ' Strip the colons again 
561 i” TO .PTR ! just to be sure 


IF CHSRCHAR (.IDX) EQL °:' 
THEN CTR = .CTR = 1 
ELSE EXITLOOP 


estas) 
SARS 


: 


& 


Obtain the access control if its needed 


NAAN ANIA GIPIPOPIPPINOPIPOPINIIIPOPYPIPIPIPINPIPININININININININIWA ANNAN IPIPINIWIWINNN E OO 
ee 


5 : 
4 : 
er PTR = LCB CLCBST_NCB) + .CTR; ! Point to the copied string 
rg 9208 IF_ .ACTSGL_XIDACC_Q ! Is there access control in 
574 56 THEN ! The node spec? 

575 568 BEGIN 

576 29? IF -ACT$GQ_ACCACC_DSC NEQ 0 ! If so, there must not be 
577 570 ! Access control elsewhere 
318 0303 -ACT$GQ_ACCPSW_DSC NEQ 0 

80 ng -ACT$GQ_ACCUSR_DSC NEQ 0 

ny Baze THEN 

8 575 SIGNAL_STOP (NCP$_INVACC) ! Signal too much access ctl 
58 0576 D 
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H 8s stg ELSE 
: 56 379 Heche pen ACCUSA DSC NEQ 0 ! If not, use other access ctl 
; 2 8 28) 4 BEGIN ! Look through the name we 
; 589 5 ¢ 4 ACCPTR = CHSFIND_CH (.CTR, LCB CLCBST_NCBJ, ''''); ! for acc etl 
3 rt 28 4 IF NOT CHSFAIL (.ACCPTR) 
3 91 584 4 THEN 
3 236 0585 4 PTR = .ACCPTR 
et bags EHSWCHAR_A ('*"", PTR) ' Put it { dard f 
3 paind : ! Put it in standard form 
; 595 tt 4 4 PTR = CHSMOVE 
; 596 589 4 ( 
; 597 0590 4 -BBLOCK CACT$GQ_ACCUSR_DSC, DSCS$W_LENGTH] 
; 598 0591 4 -BBLOCK CACT$GQ"ACCUSR-DSC, DSCSA~POINTERS, 
; 599 b238 4 .PTR 
; 600 t34 4 ; 
3; 601 0594 4 
3 one Bea & IF .ACT$SGQ_ACCPSW_DSC NEQ 0 ! A password?? 
; 60 596 4 THEN 
; 604 0597 5 BEGIN 
; 605 0598 5 CHSWCHAR_A (' ', PTR); 
: 606 0599 5 PTR = CHSMOVE 
; 607 0600 : ( 
; 608 0601 -BBLOCK CACT$GQ_ACCPSW_DSC, DSC$W_LENGTHJ 
; 609 0602 5 -BBLOCK CACTSGQ"ACCPSW-DSC, DSCSA-POINTERJ, 
: 610 0603 5 .PTR 
: 611 0604 5 ) 
; ol¢ 0605 5 END 
: 6} 0606 4 ELS 
: 614 seit4 4 SIGNAL_STOP (NCP$_INVACC) ! If no password, not complete 
; 615 0608 4 3 
3 616 0609 4 
; 617 0610 4 IF .ACT$GQ_ACCACC_DSC NEQ 0 ! An account?? 
; 618 0611 4 THEN 
: 619 pele 2 BEGIN 
: 620 061 CHSWCHAR_A (‘* *, PTR); 
; 621 0614 5§ PTR = CHSMOVE 
3 oc¢ 0615 5 ( 
; 6 0616 5 -BBLOCK CACT$GQ_ACCACC_DSC, DSCS$W_LENGTH] 
3 624 0617 5 -BBLOCK CACT$GQ_ACCACC_DSC, DSC$A~POINTERS, 
3; 625 0618 : PT 
: 626 0619 
3; 627 86 0 5 END 
: 628 621 4 $ 
: 663 06 ¢ 4 
3 6 06 4 CHSWCHAR_A (°*"*, PTR); ! End the access control spec 
3; 631 +9 4 4 
F O36 5 4 END 
3; © be § END 
i 836 06 , 
: 636 6 § ! 
3 638 ° 9 : Copy the object connect specification to the end 
; 639 6 § 
3; 640 6 PTR = CHSMOVE 
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: 661 06 4 ( 
; b4¢ 7 -BBLOCK CNCP$Q_OBJSPEC, DSC$W_LENGTH) 
> 64 06 $ -BBLOCK CNCPSQ"~OBJSPEC, DSCSA-POINTERI, 
3 6446 6 .PTR 
: Be $639 ; 
Bh 2 BR EV cic wm te um poten 
Py 4 u e ointers and status 
be ee: Be BR ore 
: 651 0644 LCB CLCBSL_NCBCNT) = B CLC LCBST_NCBI; 
; 63¢ 0645 LCB CLCBSL“NCBPTRI = (ten tL chs T_NCBJ; 
3; 65 646 LCB ELCBSB7STS] = 0; 
; 654 0647 
: 655 0648 RETURN 
: 656 0649 
: 657 0650 1 END; | 
.EXTRN NCPS$_INVACC, ACT$GQ_ACCACC_DSC 
“EXTRN ACT$GQ_ACCPSW_DSC 
“EXTRN ACTS$GQ~ “AEE USRE DSC 
-EXTRN ACTSGL~XIDACCQ 
-EXTRN PDBSG_ oka XID? SYSS$TRNLOG 
OFFC 00000 NCPSBLDLCB: 
«WORD e R2,R3,R4,R5, R6, R’. R8,R9,R10,R11 ; 0407 | 
5B 000000006 00 9€E 00002 MOVAB Aet$ca ACCACC_DSC, R : 
3E BO AE 9E 00009 MOVAB SP ; 
57 000000006 00 9€ 0000D MOVAB  PDBSG Pyke X1D+1, PTR + 0487 
58 87 9A b0014 MOV ZBL (Pr TR)? CTR : 0488 
50 57 58 C1 00017 ADDL , PTR, + 0490 
07 «11 90018 BRB : 
3A 60 91 0001D 1$ CMPB sD), #58 > 0493 
09 12 00020 BNEQ 3$ ; 
58 b7 00022 DECL CTR + 0494 
50 D7 00024 2$ DECL IDX + 0493 
57 50 01 00026 CMPL IDX, PTR : 
F it 90 9 BGEQU 1 ; 
10 AE 67 5 0 0 B 3S MOVC3 CTR, (PTR), RSLBUF > 0498 
08 AE 58 00 00030 MOVL CTR. RSL : 0499 
OC AE 10 AE 9E 000 MOVAB RSLBUF., RSLDSC+4 : 0500 
04 «AE 19 AE 9E 99 9 MOVAB RS BUF ahsBnsc+s : 0501 | 
6E 4 BF 9A 000 MOVZBL : 0502 | 
15 000000006 + 9004 BLBC bts HIDACC a 5$ : 0504 
67 58 A 0004 LOCC} =—«._-s«# 34, «CTR, : 0507 | 
12 0004D BNEQ ; | 
D4 0004F CLRL : 
59 51 OD 1 4$ MOVL Ri ACCPTR : 
08 ag 59 57 C¢ 4 SUBL3 PTR, ACCPTR, RSLDSC : 0508 
5 58 08 AE C3 00059 SUBL RSL bs¢ CTR, ACCCNT > 0509 
52 QA D0 00055 5s: HOVE 16x : 0513 | 
— 7C 06 é$: CLRO 3s = (SP) : 0521 | 
7E p4 CLRL  —s_ = (SP) ; 
0c AE 9F 0006 PUSHAB RSBDSC : 
18 AE 9F 00068 PUSHAB RSLDSC : 


-B32; 
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LITERAL 
MBXSIZ = 10 


Max size of mailbox name 


MAP 
LCB : REF BBLOCK 


The Link control block 


A 
MBXBUF : veer 


MBXSIZ, BYTE), 
MBXLST : $3. 


' Buffer to build mailbox name 
! FAO List for mailbox name | 
' Descriptor of mailbox name buffer | 

| 


1 
' 
MBXDSC : VECTOR ' 
10 status block 
1 
1 


10SB : BBLOCK (8 
STATUS, ' Return status 
R ' General pointer 


' General counter 


CHNCHAR : BBLOCK CDIBSK_LENGTH] ! Channel characteristics 


| 1 
+ ae BN Network 1/0 Routines 15-sep-1984 $3:06:48 VAX-11 Pi ieee 32 V4.0-74 ° 
v04-00 NCPSOPENLINK Open a Link to NML 14-Sep-1984 48:14 DISKSVMSMASTER: CNCP.SRCINCPNETIO. B32. 79 (9) 
; 659 0651 1 XSBTTL ‘NCPSOPENLINK Open a link t NML* 
; 660 06 § 1 GLOBAL ROUTINE NCPSOPENLINK (LCB) :NOVALUE = 
> 661 $e 1 
; 66 654 1 !4 
; 66 0655 1! FUNCTIONAL DESCRIPTION: 
; 6646 pO28 1! 
; 665 0657 1! This routine opens a Link to NML given an LCB address and 
: 666 0658 1! vars ies the connect data to determine if NML is phase II or 
; 667 0659 1! phase III. The lcb already contains the NCB. built in a previous 
; 668 0660 1! step. 
; 669 0661 1! 
; 670 066 1 ! FORMAL PARAMETERS: 
3; 67) 0665 1! 
3 67 0664 1! LCcB Address of the LCB to use 
67 0665 1 | | 
; 674 0666 1 ! IMPLICIT INPUTS: 
3; 679 0667 1! 
; 676 0668 1! NONE 
; 677 0669 1! 
; 678 0670 1 ! IMPLICIT OUTPUTS: 
; 679 0671 1! 
; 680 0672 1! NONE 
; 681 0673 1! 
; 682 0674 1 ! ROUTINE VALUE: 
: 683 0675 1 ! COMPLETION CODES: 
: 684 0676 1! 
; 6685 0677 1! NONE errors signaled 
; 0678 1! 
3 687 0679 1 ! SIDE EFFECTS: 
; 0680 1! 
; 689 0681 1! NONE 
: 0682 1! 
; 691 0683 1 !-- 
; 69 0684 1 
; 69 0685 3 BEGIN 
> 694 0686 
; 695 0687 2 
: ; 
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P= 
oo 
v7 
mx 


EXTERNAL LITERAL 
NCPS_CONNEC, 
NCPS$_UNSVRS 


LCB CLCBSW_MBXCHN) = 0; 
LCB CLCBSW_CHAN] = 0; 


LCB CLCBSB_STS] = TRUE; 
LCB CLCB$B_PH2) = FALSE; Assume Phase III 
CHSFILL(O, 3, LCB CLCBSB_NMLVERS]); ! Preset NML version to null 


Connect errors 
Unsupported version of nml 


Make the channels zero 
to indicate they are not here 


This lcb is now open 


If we are going to communicate with the NML on the local node, 

and there is no access control string. then establish communications 
with the sharable version of NML Linked with this program, rather 
than starting up another NML process on this node. 


IF CHSRCHAR(.LCB CLCBSL_NCBPTRJ) EQ. °:' 
THEN 


BEGIN 
WAL SINITIALIZE() : ! Initialize NICE preegeeer 
CHSMOVE ( UPLIT BYTE(NCPSC_VRS, NCPSC_ECO, NCPSC_UECO), 
L€B CLCBSB_NMLVERSJ);  °! Assume NMLSHR is same as our version 
—- ! Return successfully 


We are about to do a non-transparent connect, so first 
we must create a mailbox. 


STATUS = ncesinen 


CHAN = LCB CLCB$W_MBXCHNI, 
MAXMSG = 64 

BUFQUO = 256 

PROMSK = %X'FFOO' ! own=sys=rwed 


): 
NCPSSIGNETERR (NCPS_CONNEC, .STATUS, 0); ! Signal the error 
STATUS = Saeco ! Obtain the mailbox name 


CHAN = .LCB CLCB$W_MBXCHN] 
PRIBUF = UPLIT <DIBSK_LENGTH, CHNCHAR) 


NCPSSIGNETERR (NCP$_CONNEC, .STATUS, 0); =! Report an error 


PTR = .CHNCHAR CDIBSW_DEVNAMOFF]; ! Offset to the name 

IF .PTR EQL 0 ! Zero means missing 

THEN ! No name, so we die here 
NCPSSIGNETERR (NCP$_CONNEC, SS$_IVCHAN, 05 
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NCPNETIO Network 1/0 Routines 15-Sep-1984 23:46:44 VAX-11 Bliss-32 ¥4.0-74 Page 22 
Moen 500 NCPSOPENLINK Open a Link to NML 1228 08=138e $3: 214 DISKSVMSMASTER: CNCP.SRC NCPNETIO.B32:1° (8 
; oO 765 MBXLST [0] = CHNCHAR + .PTR; ! Data List has pointer to the name ‘ 
: 774 168 MBXLST [1] = .CHNCHAR CDIBSW_UNITJ]; ! The unit number to convert ‘ 
> 7275 76 MBXDSC [OJ = MBXSIZ; ! Build descriptor of buffer, size and ; 
: 76 Bros MBXDSC £1) = MBXBUF; ! Address of the buffer ; 
; ore 4 a770 SFAO, ! Build the whole mailbox name : 
: 780 P ure CTRSTR = ASCID (* !AC!UW:"), |! The name and unit _MBAnnn: 3 
: 781 P 077 OUTLEN = MBXDSC (0), ' Length goes back in descriptor : 
: 78 P 0774 OUTBUF = P ' Descriptor is here ; 
s 78 P 0775 PRMLST = MBXLST ! Data List is here : 
: ORs $798 ; 
; 786 p O78 STATUS = SASSIGN ! Assign a channel to the network ; 
: 788 P 0780 DEVNAM = ASCID ("_NET:"), ! General device for network ; 
: 789 P 0781 CHAN = LCB CLCBSW_CHAN], ! Place to put channel number : 
: as P bres on = MBXDSC ! Name we built with FAO ° 
: 9 0784 2 NCPSSIGNETERR (NCP$_CONNEC, .STATUS, 0); ! Report am error : 
; a : o7e8 STATUS 4 Satee ! Create a logical Link to NML : 
: 796 Pp 0788 CHAN = .LCB CLCB$W_CHAN], ! Use network channel ; 
; 797 P 0789 FUNC = IO$_ACCESS, ! ACP function $ 
; 798 P 0790 I0SB = 10SB ! Status here : : 
3 ea P tag § P2 = LCB CL¢BSL_NCBCNT ! This is the NCB descriptor : 
; 801 O788 ; NCPSSIGNETERR (NCPS_CONNEC, .STATUS, I0SB); ! An error : 
; 508 : 14) STATUS = Satee ! Read the connect data i 
: 805 P 0797 3 CHAN = .LCB CLCBS$W_MBXCHN], ! Channel for mailbox : 
Be Bae is © [Bsneanece : 
: 808 P 0800 2 P1 = NCPS$GT MBXBFR, ! Read data into mailbox buffer ; 
: ae P bao: 2 3 = NCPSC_MBXSIZ : 
: 811 $803 NCPSSIGNETERR (NCP$_CONNEC, .STATUS, I0SB); : 
Be HES | 
> 814 Bane i Validate the message and its returned optional data ; 
ito as 7 
; 19 $809 STATUS = .BBLOCK CNCPSGT_MBXBFR, 0,0,16,02; : 
; B18 0810 PTR = NCPSGT_MBXBFR + 4; : 
: 820 oats IF .STATUS NEQ MSG$_CONFIRM ' It must be a connect confirm ; 
; y ol? THEN SIGNAL_STOP (NTPS$_ CONNEC) ! Otherwise blow away 
: 0815 z | 
3 : 4 319 CTR = .10SB (2, 0, 16, 0) - 4; ! Play games to look at the data 
: 5 81 CTR = .CTR = CHSRCHAR (.PTR) - 13 ' Skip over the device name | 
s g 318 PTR = .PTR + CHSRCHAR (.PTR) + 1; 
: 828 O80 IF CHSRCHAR (.PTR) * 0 ! Any data returned? | 
; 829 0821 THEN LCB CLCBSB_PH2) = TRUE ! No, its phase I] 
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Network 1/0 Routines 18-52 1984 23:46:44 VAX-11 Bliss-32 V4.0 
NCPSOPENLINK Open a Link to NML 12-Sep-19 4 $3: 214 DISKSVMSMASTER: CNCP 
0 ¢ ELSE ! Yes, check the data 
8 ? BEGIN 
bs 5 3 (CHSRCHAR (.PTR) EQL 3) ! And its size 
Bs ? 2 —_— ' Check that version is current or Later 
oF 9 4 ? -PTR + 1, 
8 9 ‘ 3° UPLIT (BYTE (NCPSC_VRS, NCPSC_ECO, NCP$C_UECO) ), 
08 ¢ 4 
08 4 OR : 
0834 4 CHSEQL ! or the version is V2.0 
tk 4 ( 
0836 4 3, .PTR + 1, 
0837 4 3, UPLIT (BYTE (2, 0, 0) ), 
0838 4 0 
0839 4 ) 
0840 4 OR 
0841 4 CHSEQL ! or the version is V3.0 
Berg 4 ( 
084 4 3, .PTR + 1, 
0844 4 3, UPLIT (BYTE (3, 0, 0) ), 
0845 4 0 
0846 4 )») 
0847 3 THEN 
0848 4 BEGIN 
0849 4 CHSMOVE(3, .PTR+1, LCB CLCBSB_NMLVERS]); ! Save NML version # 
0850 4 LCB CLCB$B_PH2] = FALSE; '“Its not phase II but phase III 
0851 4 END 
bees 3 ELSE ‘ 
0853 4 BEGIN ! Close the Link and blow away 
0854 4 NCPSCLOSELINK (.LCB); 
0855 4 SIGNAL_STOP (NCP$_UNSVRS) ' Back with not a supported version 
0856 4 END ! of nmi 
0857 3 END 
0858 § 3 
0859 
0860 § RETURN 
0861 
0862 1 END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
0027 -BLKB 1 
44d 0028 P.AAD ONG 116 
0000000° 000 f ADDRESS CHNCHAR 
3A 57 55 21 43 41 4 5F 00050 P.AAF SCII \ !AC!UW:\ 
00 60038 038 P.AAE: .LONG 8 
00000000' 5 ADDRESS P.AAF 
00 00 00 3A 54 45 4 F 40 P.AAH: .ASCII \_NET:\<0><0><0> 
608 00 F 94 AAG: .LON 5 
0000' rts ADDRESS P.AAH 
00 0 4 050 P.AAL: .BYTE 4, 0, 
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NCPNETIO Network 1/0 Routines 1 . 
yon 000 NCPSOPENLINK Open a Link to NML 1 a hte 
0053 B 
00 00 02 BR P.AAJ: .B 
057 B 
00 00 03 00058 P B 
-PSECT SOWNS,NOEXE,2 
00008 CHNCHAR:.BLKB 116 
-EXTRN NCP$_CONNEC, NCPS$_UNSVRS 


~EXTRN SYSSTREMBX, SYSSGETCHN 
-EXTRN SYSSFAOL, SYSS$ASSIGN 
se YS$Q10W 


XTRN §S 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 eENTRY 15071 enamel Save R2,R3,R4,R5,R6,R7,R8,R9,=— 
5B 000000006 00 9€ 00002 MOVAB SYS$Q10W, R11 
5a 00000000' 00 9€ 00009 MOVAB NCPS$GT_MBXBFR, R10 
59 00000000" 00 9€ 00010 MOVAB CHNCHAR+ 
58 00000000v 00 9€E 00017 MOVAB NCPSSIGNETERR, R8 
57 000000006 BF DO O001E MOVL § #NCP$_CONNEC, R7 
56 00000000' 00 9€ 0002 MOVAB P.AAC 
SE 24 C2 0002C SUBL2 #36, § 
55 04 AC DO 0002 MOVL LCB, RS 
02 AS D4 00033 CLRL =—-_- 2(R5) 
+} 01 B0 00036 MOVW = #1, (RS) 
06 AS 18 00 00 FO 00039 INSV #0. #0, #24, 6(RS) 
3A OE BS 91 0003F CMPB a 1455, #58 
OE 12 00043 BNEQ 1$ 
090000006 00 00 FB 00045 CALLS #0, NMLSINITIALIZE 
06 AS 18 00 66 FO 0004C INSV P.AAC, #0, #24, 6(R5) 
04 0005¢ RET 
7E 7C 00053 18: CLRQ  =(SP) 
7E FFOO 8F 3C 00055 MOVZWL #65280, -(SP) 
7E 0100 8F 3C O005A MOVZWL #256, -(SP) 
7E 40 8F 9A 0005F MOVZBL #64, (SP) 
04 AS OF 90065 PUSHAB 4(R5) 
7E D4 00066 CLRL = = (SP) 
000000006 00 9? FB 00068 CALLS #7, SYSSCREMBX 
52 0 DO 0006F OVL RO. STATUS 
7E 04 00072 CLRL =_- = (§P) 
3g DD 00074 PUSHL STATUS 
57 DD 00076 PUSHL R7 
68 03 FB 0078 CALLS #3, NCPSSIGNETERR 
— 7C 00078 CLRO 0 = (§P) 
04 A6 OF 99070 PUSHAB P.AAD 
7 p4 08 CLRL  =<(SP) 
7E 06 AS 300 MOVZWL 4(R5), -(SP) 
000000006 99 03 FB 86 CALLS #5, SYSS$GETCHN 
D MOVL RO. STATUS 
7E D4 00090 CLRL 3s = §p) 
3 DD 092 PUSHL STATUS 
DD 0009 PUSHL 7 
68 03 FB 096 CALLS #3, NCPSSIGNETERR 
4 9 3C 0 MOVZWL CHNCHAR+14, PTR 
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NCPSOPENLINK Open a Link to NML 


000000006 6 


; Routine Size: 


50 


54 


AS 
03 
ah 
Aa 
AG 
00 


00000000v 00 
000000006 00 


Routine Base: 
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#3, 1(PTR), P.AAI 
#3, (PTR), P.AAJ 


+t 1(PTR), P.AAK 
1(PTR), #0, #24, 6(RS5) 


RS 

#1, NCPSCLOSELINK 
#NCPS_UNSVRS 

#1, LIBSSTOP 
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NCPNETIO Network 1/0 Routine 18-5 -1 74 46 X-11 Bliss-32 V4. A e N 
yO6~ 000 NCPSSIGNETERR Signal a Network Communication E 14- 300-1 3k $3: SKSVMGM TER: CNCP. OSRCINCPNETIO. B32;1 . 185 Vv 
; 87 0863 1 XSBTTL '‘'NCPSSIGNETERR Signal a Network Communication Error’ 3 
; 7 8 64 1 GLOBAL ROUTINE NCPSSIGNETERR (CODE, STATUS, IOSB) :NOVALUE = ! ; 
; B78 Bee i 144 ; 
3 87 0 ef 1 | FUNCTIONAL DESCRIPTION: ; 
: {hs 0 88 1 i This routine checks the results from a ottates service or Q10 ‘ 
; OF 0870 1! and signals an error with a subcode. h the service status ; 
; 580 p87) } } and the status block status is checked. ; 
: 88 $878 1 i If there is an error on the Link, it is closed if it is open s 
; «288 baoe 4 This will cause the Link to be reopened automatically it another $ 
5 See pee? : command is done. : 
: B86 0877 FORMAL PARAMETERS: : 
; 888 0879 1! CODE Value of the NCP code to signal ; 
3; 889 0880 1! STATUS Value of the system service status 3 
: 344 er? : 10SB Address of the 10SB to check for error status : 
: 89 te 1 | IMPLICIT INPUTS: ; 
; «#89 0884 1! $ 
Boo eat 7 
: 896 0887 1 | IMPLICIT OUTPUTS: : 
; 897 0888 1! 3 
: 99 0890} | — 
> 900 0891 1 | ROUTINE VALUE: : 
; sf +93 ' COMPLETION CODES: : 
; $08 Bape : ; NONE error signaled with additional status : 
: 905 0896 1 i SIDE EFFECTS: : 
: 907 0898 1 NONE : 
; 908 0899 1! 3 
: 909 0900 1 !-- 3 
: 910 0901 7 3 
3; «911 090 BEGIN 3 
: 3 0904 p 
> 914 0905 10SB : REF BBLOCK ; 
. 1 
: 317 908 LOCAL : 
: 918 909 REPORT é 
: 330 311 ' ; 
: 354 O32 IF NOT (REPORT = STATUS) ! Look at the primary status : 
s 9 ¢ 91 OR é 
2 i " : 
: 925 916 IF .10SB EQL 0 ‘if there is no iosb ; 
; 9 $ 91 THEN TRUE i Alwa ucceed $ 
3 i 14y 3 , ELSE (REPORT = .J0SB CO, 0, 16, 0) ) ! or. feeert the iosb error : 


1 
Network 1/0 Routines 1b-sep-1 4 VAX-11 Blisse 32 v4. Page 28 N 
NCPS$S ST CNETERR Signal a Network Communication E 14- 30p- 138 $3; 18:14 DISKSVMSMASTER: CNCP. OSRCINCPNETIO. B32;1 r 185 V 
0920 THEN 
921 Begin 
9 § NCPSCLOSELINK f NGPOGL CNEL Ce) ! Close Link to mark to reopen 
9 SIGNAL_STOP (.CODE, 0,~. REPORTS i Signal the error 
924 END 
925 
926 1 END; 
0004 00900 -ENTRY NCPSSIGNETERR, Save R2 7 0864 
52 08 AC DO 9002 MOVL STATUS, REPORT + 0912 
0c 52 €9 00006 BLBC REPORT, 1$ 3 
oc ac Bs 00009 TSTL 3 0916 
ze CY Range BEQL $ 3 
52 0c 3 43 000 MOVZWL a@10SB be PORT 3 0918 
18 52 €8 0001 BLBS RE 3 
00000000' 00 DD 00015 1$: PUSHL ae, ELCB 3; 0922 
00000000v 00 01 FB BOO 18 CALLS P RCPBCLOSEL NK 3 
52 0D 0002 PUSHL REBOR 3 0923 
7E 04 00024 CLRL =(SP) : 
04 AC ODD 00026 PUSHL 3 
00000000G 00 03 =FB Bangs CALLS 53°F LIBSSTOP 3 
04 000350 2$: RET 3; 0926 


; Routine Size: 49 bytes, Routine Base: S$CODE$S + 03F8 


NCPNETIO Network 1/0 Routine Bese $ep-1984 23:46:44 VAX-11 A -32 V 9 N 
yon b00 NCPSCLOSELINK lees a Link Open in an LCB 12-8 08-1 3b 3: 18:7 14 DISKSVMSMASTER: cNCBS OSACSNCPNETIO. B32. 7 9 49) Yi 
; 937 927 1 ZSBTTL ‘'NCPSCLOSELINK Close a Link Open in an cB" ; 
$ 4 S 2 8 ; GLOBAL ROUTINE NCPSCLOSELINK (2cB) :NOVALUE = : 
; 940 930 1 !44 5 
3 oh , 1 ! FUNCTIONAL DESCRIPTION: : 
; 94 9 : 1! This routine closes a logical Link open in an LCB. : 
: ore 8 : : The LCBSB_STS byte is true for the Link is open. > 
; 946 09 § 1 ! FORMAL PARAMETERS: 5 
: 947 09 1! F 
: 948 8 4 1! LcB Address of the lcb describing the Link $ 
s 949 9 1 i $ 
: 950 0940 1 ! IMPLICIT INPUTS: 3 
; 951 0941 1! F 
3 828 b94 4 . 7 NONE 3 
: 9 0945 1! F 
; 954 0944 1 ! IMPLICIT OUTPUTS: 3 
; 955 0945 1! 3 
; 956 0946 1! NONE 5 
; 957 0947 1! 3 
; 958 0948 1 ! ROUTINE VALUE: 3 
; 959 0949 1 ! COMPLETION CODES: 3 
; 960 0950 1! 3 
; 961 0951 1! NONE return always occurs, error signaled non-fatal . 
8 | 8336 74 : 
; 96 0955 1 ! SIDE EFFECTS: 3 
; 964 0954 1! 3 
; 965 0955 1! NONE 3 
; 966 0956 1! 3 
; 967 0957 1 !-- 3 
; 968 0958 1 3 
; 969 0959 BEGIN : 
: 970 0960 3 
s 971 0961 P f ; 
s 97 484 LCB : REF BBLOCK ' Link control block 3 
: 97 096 3 3 
3: 974 0964 3 
3; 975 0965 LOCAL 3 
; 976 096 STATUS ' Service status : 
3; 977 096 3 3 
; 978 0968 3 
; 979 0969 EXTERNAL LITERAL 3 
3 0970 NCP$_DISCON ! Disconnect error status : 
: 981 0971 : 3 
: 98 097 3 
:; 98 097 IF NOT CB C(LCB$B_STSJ ! If Link not open, return 3 
3; «6984 0974 THEN RETURN 3 
; «6985 975 ; 3 
3; 986 97 $ 
3 oan 1A LCB CLCBS$B_STS) = FALSE; ! Mark its not open : 
; 989 97 IF CH$RCHAR(.LCB CLCBSL_NCBPTR]) EQ. ':' ! If talking to sharable NAL, : 
: 990 980 THEN 3 
3; «991 981 BEGIN 3 
; 99 9 ; BUILTIN REMQUE; ‘ 
; 99 9 LOCAL 3 
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yO4n 500 NCPSCLOSELINK Close a Link Open in an LCB 14°S Sep 71382 93: 18:14 DISKSVMSMASTER: ence’ OSACINCPNETIO. B32. 7 9° 479 
: 994 984 ane 5 
; 995 985 Pye F VECTOR: 3 
3 Bee 9 § NMLSTERM ! Perform sharable NML cleanups $ 
; 99 9 WHILE NOT loeat nml_resp_queue [0], entry) ! For each response in queue, > 
; 998 988 dO 3 
; _999 0989 4 pes! F 
: 1000 Baay 4 = entry C2) + 12; ' rr of entry 3 
: 190) 444 4 iad Ree _VMC Length, entry); i Deallocate the. entry : 
3 1908 099 RETURN; 3 
: 1004 0994 END; 3 
: 1005 0995 s 
: 1006 099 IF .LCB CLCB$W_CHAN] NEQ 0 $ 
3; 1007 099 THEN ; 
; 1008 0998 BEGIN 3 
: 1009 P 0999 STATUS = $SDASSGN ! Deassign the channel to net : 
: 1010 1000 CHAN = .LCB CLCBSW_CHAN]); 3 
3 1011 1001 IF NOT ASTATUS ! and report an error if so $ 
s Org 100 La SIGNAL (NCP$_DISCON, 0, . STATUS) é 
3; 101 100 END : 
Be MBE : 
3: 1016 1006 IF .LCB CLCB$W_MBXCHN) NEQ 0 3 
: 1017 1007 THEN 3 
: 1018 1008 BEGIN F 
: 1019 P 1009 STATUS = $DASS ! Deassign mailbox channel, deleting it : 
: 1020 1010 3 (CHAN = at CLCBSW_ MBXCHN]); P 
3; 1021 1011 3 IF NOT {and report the error 3 
: 1022 101g 3 THEN SIGNAL (NCP$_DISCON, 0, . STATUS) ; 
: 1023 101 3 END : 
; 1024 1014 2 3 $ 
3: 1025 1015 2 3 
3: 1026 1016 2 RETURN 3 
: 1027 1017 2 3 
; 1028 1018 1 END; 3 
-EXTRN NCP$_DISCON, SYSSDASSGN 3 
007C 00000 ENTRY NCPSCLOSELINK, Save R2,R3,R4,R5,R6 3; 0928 3 
56 00000000G 00 9€E 88088 MOVAB £18336 AL 6s 3 3 
55 00000000G 8F 00 00009 MOVL penta DISCON ; 3 
54 000000006 88 9 80019 MOV $i YSSDASSGN, oa 3 ; 
5E is 1 SUBL me : é 
50 06 AC D OO01A MOVL te : 0973 ; 
6D 60 E9 OO1E BLBC EROS, 48 ; F 
60 94 00021 CLRB (RO) 3; 0977 : 
3A OE 0 91 000 ; CMPB @14(RO), #58 3; 0979 3 
5 12 8° BNEQ 2s 3 3 
000000006 98 FB 00029 CALLS at NMLSTERMINATE ; 0986 3 
0 00000000" 00 9€E 000 ! 1$: MOVAB NML_RESP_QUEUE, RO 3; 0987 3 
6E 00 B9 OF REMQUE @0(RO), ENTRY 3 3 
1 8 . BVS 4$ 3 3 
50 —E D D MOVL ENTRY ; 0990 3 
04 AE 08 Ao € C1 00049 ADDL3 #12, § RO). LENGTH : ; 
E DD 00046 PUSHL SP 3; 0991 : 
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v04- NCPSSENDMSG Send a Message to NML 14-Sep-1984 12:48:14 DISKSVMSMASTER: CNCP.SRCINCPNETIO.B32;1 (12) 
; 1030 1019 1 ZSBTTL ‘'NCPSSENDMSG Send a Message to NML' 

3 + 1 : Y } GLOBAL ROUTINE NCPSSENDMSG (LCB, LEN, BFR) :NOVALUE = ! 

3 10 5 10 § 1 !44 
5 18 ¢ 18 7 ! FUNCTIONAL DESCRIPTION: 

: 10 $ 1025 1! This routine sends a message to the NML object over the Link 

: 10 10 § 1} described by the LCB argument. The buffer is described by the 
3 See \° f / } remaining arguments. System service and IO errors are signalled. 
; 1040 1029 1 ! FORMAL PARAMETERS: 

3 1041 1030 1! 

$ 126 1031 4% LCcB Address of the Link control block 

; 104 10 ¢ 1! LEN Value of the Length of the message 

3 Ieee 1937 ' BFR Address of the message buffer 

3: 1046 Wee 1 ! IMPLICIT INPUTS: 

3 1047 1036 1! 

; 1048 1037 1! NONE 

3; 1049 1038 1! 

3; 1050 1039 1 ! IMPLICIT OUTPUTS: 

3; 1051 1040 1! 

3 1836 1041 1! NONE 

3; 105 Ho 2 

3: 1054 1045 1 ! ROUTINE VALUE: 

3; 1055 1044 1 ! COMPLETION CODES: 

: 1056 1045 1! 

3: 1057 1046 1! NONE 

3; 1058 1047 1! 

: 1059 1048 1 ! SIDE EFFECTS: 

3; 1060 1049 1! 

3; 1061 1050 1! NONE 

3 1308 1051 1! 

3: 106 1036 1 !-- 

3: 1064 1053 1 

3; 1065 1054 2 BEGIN 

3: 1066 1055 § 

3 1067 1056 P : 

: 1068 1057 2 LCB : REF BBLOCK ! Link control block 

3; 1069 1058 3 

3; 1070 1059 

3; 1071 1060 

3 1o76 1061 STATUS, ' Service status 

3; 107 1066 10SB : BBLOCK (8) !' 10 status block 

3: 1074 1 3 

3; 1075 1064 

3; 1076 1065 EXTERNAL LITERAL 

3 1077 1966 NCP$_NETIO ' Network comm error 

3; 1078 106 3 

3; 1079 1908 : 

3 1380 1398 4 NOT .LCB CLCB$B_STSJ ! If Link is not open 

: 1082 1071 NCPSOPENLINK (.LCB); ! Open the Link to executor 

: 1084 1978 IF CHSRCHAR(.LCB CLCBSL_NCBPTR)) EQL ':' ! If talking to sharable NML, 
: 1085 1074 HEN 

3; 10 1075 BEGIN 
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BUILTIN REMQUE; 

LOCAL 
entry: REF VECTOR, 
msgdesc: VECTOR (2); 

waa NOT REMQUE(.nml_resp_queue £0], entry) ! For each response in queue, 
BEGIN 


Length = .entry (2] + 12; ! Length of entry 
bis FREE_VM(Length, entry); ! Deallocate the entry 


4 
4 
4 
E 
msgdesc £03 = .len; ! Make descriptor of message 
= 
1 


pojelelelealelelelealeoleleleloleololololelolololo) 
OOOO O000OOOMMM dco C@cCDODCD SS33 


NAME WN $$ O ODN NEW OOS NAUE WN OOONO 


msgdesc oaths 
NMLSPROCESS_NICE (msgdesc, ' Call sharable NML with message 
store_response) ; ! and store all the responses 
RETURN; 
END; 
STATUS + ! Write the message 
CHAN = .LCB CLCB$W_CHAN], 
FUNC = I0$_WRITE . 
10 1088 = IOSB, 
10 Pl = .BFR 
13 P2 = .LEN 
+ NCPSSIGNETERR (NCP$_NETIO, .STATUS, I0SB); ! Check and signal an error 
10 RETURN 
10 
10 END; 


.EXTRN NCPS_NETIO 


0004 00000 .ENTRY NCPSSENDMSG, Save R2 
5 18 ¢ 9002 SUBL2 #24, SP 
6 04 AC 00 0000 MOVL  LCB, R2 
0 $2 E8 00009 (R25, 1$ 
FD81 = CF 34 Pe it CALLS af NCPSOPENL INK 
Sh OE 82 of Bors 1$: CMPB Si4cno)° At} 
A 12 0001 BNEQ 
50 00000000" 00 9€ 00019 2s: MOVAB NML_RESP_QUEUE, RO 
6E 00 8 OF 0 REMQUE @0(RO), ENTRY 
17 1D 00024 BVS 
50 E 00 6 MOVL. ENTRY RO 
04 AE 08 A , ADDL3 #12, 8(RO), LENGTH 
E BD F PUSHL 
08 AE F 1 PUSHAB LENGTH 
000000006 00 02 Fe CALLS #2, LIBSFREE_VM 
AE 08 AC 7D p 3$: MOVQ LEN, MSGDESC 
00000000v 00 9F 0004 PUSHAB STORE_RESPONSE 
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v04= NCPSSENDMSG Send a Message to NML 14-Sep-1984 12:48:14 | DISKSVMSMASTER:CNCP.SRCINCPNETIO.B32;1 (1 | 
0c AE 9F 00048 PUSHAB sGDESC : 
000000006 00 02 FB 0004 CALLS #2, NMLSPROCESS_NICE : 
4 ; RET + 1075 
7E 7C 4$: CLRQ (SP) + 1103 
7E 7¢ 09 CLRQ  =(SP) : 
8 AC DD PUSHL LEN F 
C AC DD OO05A PUSHL 6F : 
7E 7C 30 CLRQ. = (SP) ; 
30 AF OF F PUSHAB 10SB : 
30 Dod 00062 PUSHL #48 : 
50 04 AC 00 00064 MOVL L¢B RO ; 
7E 02 Ad 3¢ 068 MOVZWL 2(RO), =(SP) ; 
7E D4 0006C CLRL (SP ; 
000000006 00 oC FB O6e CALLS #12, SYS$QIOW ; 
10 AE 9F 000 PUSHAB 10SB + 1104 
50 DD 00078 PUSHL STATUS ; 
000000006 8F DD O007A PUSHL #NCP$_NETIO F 
FEBB OCF 03 FB 00080 CALLS #3, NCPS$SIGNETERR : 
04 0008 RET + 1108 


; Routine Size: 134 bytes, Routine Base: S$CODE$ + 0488 
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we wish to ‘'read’’ a response. 
Inputs: 
resp_desc 
Outputs: 

a None 
BEGIN 

BUILTIN INSQUE; 


status = LIBSGET_VM(length, entry); 
IF NOT .status 
SIGNAL_STOP(.status); 
4 = .resp_desc Cdsc$w_length]; 
ensh VE(.resp_desc pgsceu. ae) OLY 


-resp_desc Cdsc$a_pointer 
entry (3]); 
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INSQUE(.entry, .nml_resp_queue [1]); 
END; 
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0 Ro 1b-s6 46:44 VAX-11 
ONSE Store a response from sharable 12-808-1 382 93:2 :14 Disk SKSVMSM 
BIT 

UTI 


L_ "STORE_RESPONSE Store a response from sharable NML' 
NE store_fesponse (resp_desc): NOVALUE = 


resp_desc: REF BBLOCK; 
LOCAL 
status, 
length, 
entry: REF VECTOR; 
length = .resp_desc Cdsc$w_length] + 12; 


Bliss-32 vs. 5 
BMASTERSLNCP. SRCINCPNETIO.B32047" (135 


This routine is called by NMLSPROCESS_NICE for A en vevegres 
that it generates as a result of procéssing a I 

ALL we do is store the response messages away in ; queue in the 
order in which tney were generated, and de-queue them later when 


ingle NICE Ph « 


= Address of descriptor of NICE response message 


! Address of response descriptor 


! Length of block gy ten response 
! Address of block to contain response 


! Add response length + overhead 
! Allocate dynamic memory 
! If error detected, 
! then signal fatal error 


! Store length 4 response message 
i Copy message to new block 


! Insert at end of queue 


007C 00000 STORE _RESPONSE: 


sg, OB GR Bonn SRL 


Save R2,R3,R4,R5,R6 . 1110 


#8, SP 
RESP_DESC, R2 > 1141 


NCI 
VO 


vou~600" 


; Routine Size: 


OC 6 


66 bytes, 


het pe 

E 0D $ 1 

08 AE OF 13 

000000006 4 % 4 Baie 
0 dd 000 
000000006 Ht 2 fe 4 

08 6 f 0002C 

04 6 0030 
00000000" 0 E BS 

00 66 OE 00030 

04 00041 


Routine Base: 
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v4.0 


71984 33: 46: 144 VAX=11 Bliss-32 v4.0 
4 :14 DISKSVMSMASTER:CN NCb sae 

MOVZWL (R , LENGTH 

ADDL2 “| LENGTH 

PUSHL 

PUSHAB ye 

CALLS # “LBSGET. vM 

BLBS 

PUSHL sth iy 3° 

CALLS #1 YBssToP 

OVL ENTRY. 3 

MOVZWL (R , 

OvC3  (R2) He 12(R6) 

OVAB  NML_RESP P ue UE+4, RO 

INSQUE (R6S, sot 


6 
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v04- NCPSREADRSP Read and Decode an NML Response 14-Sep-1984 12:48:14 DISKSVMSMASTER: CNCP.SRCIJNCPNETIO.B32;1 (14) | 
; 1170 1157 1 ZSBTTL ‘NCPSREADRSP Read and Decode an NML Response’ 
: 130) 1 8 : GLOBAL ROUTINE NCPSREADRSP (LCB, LEN, BFR, SHO) = 
; 1178 1160 1 !+4 
: 1174 1161 1 ! FUNCTIONAL DESCRIPTION: 
3; 1175 1186 1! 
3 1178 1165 1! This routine reads a message from NML and decodes it. 
3 117 1164 1! If the message is an error response, the error is signaled and 
: 1178 1165 1! control does not return to the caller. 
3; 1179 1198 1! If the message is a data return or a done status, the message is 
; 1180 1167 1! returned via LEN, BFR and the first byte is returned as the value of 
; 1181 1168 1! the routine. LEN and BFR form a descriptor of the data beyond the 
3 1186 11649 1! error status byte, detail and error message. If the error status | 
; 118 1170 1! is SUC, DON or MOR, and there is a detail or error message, an 
3; 1184 1171 17! error is signaled to print these but control returns normally to 
3 ‘ies 1176 ! the caller. 
: 1187 1174 1! If an error contains data, it is assumed to be an entity for the 
; 1188 1175 1! error and the entity code is formatted and included in the error 
; 1189 1178 7% message. Entity codes may also occur with success codes and in 
; 1190 eae & this case the data is printed as an gi ty if the message is not 
: Bb 4 Vie : a show or List command, indicated by the SHO parameter. 
: 1198 1180 1 ! FORMAL PARAMETERS: 
3 1194 1181 1! 
3; 1195 1158 1! LCB Address of Link control block 
> 1196 1183 1! LEN Address for return of length of buffer 
3 1197 1184 1! BFR Address for return of address of buffer 
3; 1198 1185 1! SHO True if the command is show or List 
; 1199 1186 1! 
3; 1200 1187 1°! IMPLICIT INPUTS: 
3: 1201 1188 1! 
; a4 1189 1! NCPSGL_ENTITY Entity number sent in original message 
: 120 1190 1! (If negative, then system-specific entity) 
>; 1204 1191 1! 
; 1205 1192 1 ! IMPLICIT OUTPUTS: 
: 1206 1193 1! 
: 1207 1194 1! NONE 
; 1208 1195 1! 
; 1209 1196 1 ! ROUTINE VALUE: | 
: 1210 1197 1 ! COMPLETION CODES: | 
: 1211 1198 1! 
3 \si¢ 1199 1! Value of first byte of message, or error signalled 
3 1s! 1500 1! 
3 1214 1201 1 ! SIDE EFFECTS: 
; isi? 1 8 | 
3 1 1 1205 1! NONE 
3; 121 1204 1! 
<1 | 
: 1 20 1507 BEGIN | 
; 3 $§ 1209 P 
31 1210 LCB : REF BBLOCK ! Link control block 
|) . 
3 1226 1 8 LITERAL 

| 


en 
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NCPSREADRSP Read and Decode an NML Response 30071383 $334 214 DL SKSVMEHASTER ENCE. SRCINCPNETIO.B32¢4° (1 vO 
: 1227 1214 perl = 32, Size of response buffer required ; 
: 1228 1215 DILSIZ = 32, Size of detail buffer required : 
3 : 3 } \$ ENTSIZ = Size of entity code buffer : 
3; 1231 1 \8 . 
3 1 § 121 AL : 
3: 1 1220 STATUS, ! Service status return : 
: 1234 1221 OUTLEN, ! Length in a buffer : 
: 1235 1 ¢ 10SB : BBLOCK (8), ! Q10 status : 
3: 1236 1 CTR, ! General temps : 
3: 1237 1224 PTR . 
: 1238 1225 cope : 
: 1239 1206 ENTITY, ! Entity number (negative if sys-specific) : 
; 1240 1227 RSP, ! Pointer for response text : 
: 1241 1228 COMMA, ! Pointer to separator before detail ; 
3 1 og 1 $3 OTL, ! Pointer for detail text : 
: 124 1250 ERR, ! Pointer for error text : 
: \ete 1231 ENT, ! Pointer for entity code text ; 
3 1245 1 3 IDX, ' Index into tables . 
3: 1246 123 JUNK ! Throw away soagerers : 
3 1247 1234 DETAIL, i value of detail word : 
: 1s68 1 $2 DTLTBL ! Address of detail table ; 
3 1249 1236 : . 
3; 1250 1237 3 
3; 1251 1238 OWN ; 
: 1636 1239 DTLBUF : VECTOR CDTLSIZ. BYTE], ! Detail bu’ » : 
3: 125 1240 RSPBUF : VECTOR CRSPSIZ, BYTE], ! Response ‘ier : 
3 1254 1241 ENTDOSC : VECTOR (2) ! Descriptor for string : 
: 1255 1 rs | 2 ENTBUF : VECTOR ENTSIZ, BYTE] ! Entity string buffer : 
; 1528 124 § 3 ; 
3 1257 1244 : 
; 1258 1245 : 
3 1259 1246 EXTERNAL LITERAL : 
; 1260 1247 NCP$_NMLRSP, ' NML response message : 
; 1261 1248 NCP$_NETIO ! Network communication error ‘ 
: 1506 1563 ; ° 
3: 126 1250 : 
3: 1264 1251 EXTERNAL : 
; 1265 1926 NCP$GA_TBL_NMLSTS, ! NML status return codes : 
: 1266 125 NCP$GA_TBL_FOPDTL, ! File operations detail codes : 
3 1267 1254 NCPS$GA_TBL_NCE ! Network communications detail codes : 
: 1268 1255 NCPS$GA_TBL_VMSENTOTL, i Detail table of VMS specific entities ; 
: 1269 1256 NCPS$GA_TBL_EN ° ! Detail table of entities : 
: ! A \ 2 NCPS$GA_TBL_OPEDTL; ' Detail table of operation failures | “ 
3 1 i 1259 exTenn, ROUTINE : 
3 127 1260 NCPSF AOSET : NOVALUE, ! Setup to convert entity : 
3 1274 1261 NCPSSHOENTITY =: NOVALUE, ' Convert i : 
3 : Le \ ¢ NCPSF AOL : NOVALUE ! Convert fao string for entity ° 
3: 127 1264 : 
3; 1278 1265 -LEN = 0; ! Set callers data ° 
: 79 66 -BFR = NCPSGT_RSPBFR; : 
71 Bt 1268 IF CHSRCHAR(.LCB CLCBSL_NCBPTRJ) EQL ':' ! If talking to sharable NML, : 
3 1 Be 1 44 THEN : 
31 1270 BEGIN : 
| 


————_——_———-.-} 
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Voor a0 NCPSREADRSP Read and Decode an NML Response 122808-1 $84 $3508:40 DISK SVMGMASTERSENCP. SRCINCPNETIO.B32¢4° (14) v6 
: 1284 1271 BUILTIN REMQUE; ‘ 
; 1285 1 i LOCAL ; 
3% : 127 Length, : 
3; 3 1274 de F REF VECTOR; : 
3 , 8 } e c REMQUE(.mml_resp_queue [0], entry) ! De-queue next one. If none, ‘ 
: 1290 1 sf SIGNAL STDS (NCPS_NETIO, SS$_ABORT); ! signal fatal error ; 
; 1291 1 re ctr = Tow 2]; ! Copy Length of response ‘ 
> 129 127 ptr = ncpsg _spbfr; i Set address of buffer : 
: 129 1 + HSMOVE(.ctr, entry (3), .ptr); ! Copy response into buffer : 
> 1294 1281 ength = .ctr + 12; : Set Length of container block : 
: : 32 : B¢ £18 FREE_VM(Length, entry); ! Deallocate container block ‘ 
: 1297 1284 ELSE ! Else, read response from logical Link : 
3; 1298 1285 BEGIN : 
; } 44 4 ' Hy STATUS = So10v ! Read the message from NML : 
; 1301 P 1288 CHAN = .LCB CLCBSW CHAN], ; 
; 130 P 1289 FUNC = I10$_READVBLR, : 
; 130 P 1290 10SB = I10S6, ‘ 
; 1304 P 1291 Pl = NCPSGT_RSPBFR, ° 
: St P 1338 ve = NCPSC_RSPSIZ ‘ 
3 1308 1294 NCPSSIGNETERR (NCP$_NETIO, .STATUS, I0SB); : 
> 1309 1598 CTR = .10SB CO, 16, 16, 0); ! Point and count into message ; 
; 1310 1297 PTR = NCPSGT_RSPBFR; : 
; 1311 1298 END; é 
: 1313 1500 3 
3 1314 1301 ! We need to set some defaults in case the message is bad : 
: 1316 1308 5 
: 1317 1304 RSP = UPLIT (ZASCIC ‘unrecognized'); ! Some default text for message : 
>; 1318 1305 COMMA = UPLIT (ZASCIC '"); ‘ 
3 1319 1306 DTL = UPLIT (ZASCIC ‘'); : 
3 1330 St ENT = UPLIT (ZASCIC ''); $ 
3 1321 1308 ERR = UPLIT (ZASCIC '"); 3 
: 1356 1309 : 
3 132 1310 IF .CTR EQL 0 ! If message is short, signal now 3 
3 1324 1311 THEN : 
; 1 1316 SIGNAL_STOP (NCPS_NMLRSP, 5, .RSP, .COMMA, .DTL, .ENT, .ERR) : 
: 1327 1314 ' ; 
: \ HE CODE = .(.PTR) <0, 8, 1>; ! First byte is a code : 
: 1380 1317 IF NOT UC PSTABLESEARCH ! Find the code text if possible : 
; 1382 1319 CODE <0, 8, 0> ! Code byte : 
: 1333 1320 NCPS$GA_TBL_NMLSTS, i Table : : 
5 } : ' RSP ! Return address of counted string : 
:1 1 ; 
2 1324 THEN : 
3 7 3 1325 BEGIN 3 
3; 7 ? 1 $ $F AO ! If not found, make some text : 
; 1340 P 132 ( : 
| 
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C 
: } rp 4 } : ASCID  (*managenent return # !SB'), : 
:1 rk Pj UPLIT (RSPSIZ-1, RSPBUF+1), : 
3 : te P ! 1 s CODE : 
: 1 4g 1 : RSPBUF [OJ = .OUTLEN; ' As a counted string : 
> 134 1334 RSP = RSPBUF i Point to it : 
3 1348 1335 END 3 
a 7 
; 1351 1338 DETAIL = =1; ! No detail yet 3 
[1 3g 1340 IF .CTR GEQ 3 ! Is there a detail word ; 
: 1388 1342 EN BEGIN : 
: 1 28 1 rk DETAIL = .(.PTR+1) <0, 16, 1>; ! Obtain the word 3 
; ' ef : rf: IF .DETAIL NEQ -1 ! Ignore value? : 
: 1359 1346 4 BEGIN ! Nope : 
3 iE +4 Ht 984 4 oe ! Find a table to use ; 
: 1368 1350 SELECTONE .CODE OF : 
: 1364 1351 5 CNMASC_STS_FOP, NMASC_STS_FIO, NMASC_STS_FCO) : ; 
3 1302 ; 26 5 NCP$GA_TBL_FOPDTL ! File id errors : 
: 1367 1354 : CNMASC_STS_MLD, NMASC_STS_MCF) : F 
; 1308 : 2? : NCPS$GA_TBL_NCEDTL ! Network io errors : 
: 1370 1337 ; CNMASC_STS_OPE) : : 
: : 4 : 28 : NCP$GA_TBL_OPEDTL ! Operation failure : 
:1 ig 1366 : CNMASC_STS_CMP, NMASC_STS_IDE, NMASC_STS_STA) : ; 
3 1374 1361 5 ' Errors with entities ; 
; 1323 1306 : if eNCPSGL_ENTITY LSS 0 ! If system-specific entity : 
: a 1364 5 cise NCPSGA-TBLLVMSENTOTL —! VMS entities ; 
> 1379 1366 5 NCPSGA_TBL_ENTOTL; ! DNA entities ; 
; : : : 44 ? COTHERWI 55) ' Details not valid : 
; 1382 1368 é IF .DETAIL EQL 0 ! Zero is null detail here ; 
3; 7 1370 6 THEN 1 ! Null detail if not valid. : 
: 1 eee 1371 6 ELSE 0 ! But report non zero detail 3 
: 1386 1378 oe 
:14 Hy 139% TES : F 
:1 1375 END : 
: 1390 1377 6 
: 91 28 4 1 .CODE EQL NMASC_STS_OPE ! If operation failure 3 
: 1398 1380 (.NCPSGL_ENTITY EQL ! and entity is Line ; 
; } Be ! 1 NMASC_ENT_LIN : 
21 1 4 .NCPSGL_ENTITY EQL ' or circuit ; 
> 139 1384 NMASC_ENT_CIR) : 
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; 1398 1385 5 ‘ 
3; 1399 1 § 4 THEN . 
: eR 1 BEGIN : 
3; 1401 1 3 LOCAL ; 
; 1406 1 PREBUF : VECTOR (40, BYTE], ! Buffer for string to proceed ‘ 
; 140 1390 ! each detail message. : 
3; 1404 1391 PRELEN, ! Length of string to proceed ‘ 
3 1405 1 38 ! each detail message. ; 
3 e's 139 LOCPTR; ! Local pointer . 
3; 140 1394 : 
: 1408 1395 LOCPTR = PREBUF; ! Init pointer into buffer > 
ig 1 : 
3 1411 1398 !' Build the ot ing which will preceed the detail text so that each detail ; 
; 10N6 17h string output will Line-up under the error text. for example: ; 
; 1239 tt } Zfacility-L-ident, error text ! Original error message : 
3; 1416 1208 : haat 8 tlaaet error text<CR><LF>  ! Message with two detail . 
3 1417 1404 ! < SPACES >, detail text<CR><LF> ! strings appended. : 
; 1e18 ee ; < SPACES >, detail text : : 
: 1420 1209 6 PRELEN = ( CHSFIND_CH(.(.PTR+3),! Get the number of characters : 
3 1421 1408 6 “ +&, 4C',") ) |! in the facility and ident : 
; Fs ¢ et 5 - (.Ptr + 4); ! portion of error message : 
> 1426 1411 2 (.LOCPTR) <0, 16> = ZX‘OAOD'; ! Store <CR><LF> in buffer, : 
> 1425 1412 3 LOCPTR = CHSFILL( XC’, .PRELEN, .LOCPTR, + 2); ! some spaces, : 
: 1496 1413 5 (,LOCPTR) <0, 16> = ZASCIi', "; ! ‘anda, ™ : 
; 1427 1414 3 PRELEN = .PRELEN + 4; i Length = Length of facility : 
: 1498 1415 2 ! text plus <CR><LF> and", " : 
s 1486 1417 § LOCPTR = .PTR + 4 + ' Point to end of original : 
; tt 1018 -(.PTR + 3) <0, 8 >; ! error message text. . 
; 1233 1420 INCR INDEX FROM 0 TO 16 DO : 
3 ieee 1421 6 N : 
3; 1435 14 ¢ 6 IF .DETAIL < .INDEX, 1, 0 > ! If status or error bit is set, : 
3 1436 14 6 AN ! and it’s in the table, : 
3: 1437 1424 6 NCPSTABLESEARCH (. INDEX, .DTLTBL, DTL) 3 
3 1438 1425 6 ! and there's room in the F 
3 1439 1426 6 -PRELEN + .(.DTL) <0, 8 > ! response buffer. : 
3 1440 1427 6 LEQ .PTR + NCPSC_RSPSIZ - .LOCPTR : 
3 1441 14 3 § THEN : 
3 ek} 14 BEGIN : 
3 144 1430 7 LOCPTR = CHSMOVE ! Append the string which F 
3 1444 1431 7 ( ! preceeds each detail message $ 
3 1445 14 ; 7 -PRELEN, ! to the end of the error : 
3 1446 1435 7 PREBUF ! message 3 
> 1447 1434 7 .LOCPTR i : 
> 1448 1435 7 F : 3 
3 1449 14 $ 7 : 
3; 1450 14 7 : 
3; 1651 1438 7 LOCPTR = CHSMOVE ! Append detail to end of the : 
: 1626 1439 7 ! error message : 
3 145 1440 7 -(.0TL) <0,8>, : 
3 1454 1441 7 Oat, 7 : 
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END; 
END; 


(.PTR + 3) <0, 8>= ! Update message length. 
.LOCPTR = .PTR = 4; / 

CTR < 0, 8 > = .LOCPTR = .PTR; ! Update counter. 

DILTBL = 1; ! Indicate that we formatted it 
DTLBUF (0) = 0; ! Make sure we Don't print the 
DTL = DTLBUF; ! detail # 


END 


AAR 
PRELLEE 


LEALERVISSOISA 


-CODE EQL NMASC_STS_PVA ! Special details for these 
' Errors, its the parameter 

CODE EQL NMASC_STS_PLO ! name 

CODE EQL NMASC_STS_PNA 

-CODE EQL NMASC_STS_PTY 

-CODE EQL NMASC_STS_PGP 


y CODE EQL NMASCSTS_PMS 


ANNO 


WN OOO NOUS Wwr—0O0@ 


OOOO NNN 


BEGIN 

NCPS$FORMATPARM ! Format the parameter name 
»NCPS$GL_ENTITY, Entity is here 
DETAIL, Parameter code is here 

Give the name 

Not the data 

», ! Describe the buffer 

Length of text here 

Return pointer to throw away 


): 
DTLBUF [0] = .OUTLEN; ! Set Length of counted string 
DTL_= DTLBUF; ' Point to buffer 
DTLTBL = 1 ! Kill following check 


SUSe 


co 
oO 


FALSE, 
UPLIT (DTLSIZ - 1, DTLBUF + 
OUTLEN, 


ee eee 


IF pene ret NEQ 1 !' Unless we formatted it above 
( 
gBTL TOL EQL 0 ' If there is no detail table 


( 

IF .DTLTBL NEQ 0 ! Interlock for not in table check 
SOT MCPSTABLESEARCH (.DETAIL, .DTLTBL, DTL) 

pause ' Force conversion if not in table 
) 


ee ee ee ee ee ee a ee ae ee a a ee a a ee ee a ee ee a ee ee a ed a ad dd 
Be ek ak ak tel ak ak ek tad ek Dalek Dekh Del Dek Dek Dh ehh ee ee eh tal tek a tal al tak al tak ad tak et ek ek ek ek et et et ee et 
MEW 0 OBNAUE WN 0 OONOA UNE WIN $9 ODNOA UE WN OOO NOU SWRI COOONOUS UM 


WO OOOO OOW00 090009 0909 0909 09 SI NI ISIN NINN S IOA A AAAAAAAAMMMIMUIVMIVIVIUIUN 
VDDD DOD. BS BS BS TITTIES BS BS ES BBE EE PNT NI 


PPAAAD AMIE EEE EERE EEE EEE PEPE PPP PPP PPP PPP PPP PPE LES 


BQSSSLIEARANLSSSLESRANLS 


Be Se Se Ge Se Ge Se Se Ge Se Fe Ge Se Se Se Ge Se Ge Fe Se Ge Ge Se Ge Ge Ge Fe Ge Fe Ge Ge Se Ge Ge Ge Fe Se Se Se Se Se SESS Se Se esSe Se Se Sse ee Se Sse Sessese 
ce ee em ee ee ee ee ed ed ed ed = od = a 8 2d 2 od 2 = = 
oO 

oo 


2 

WePNE 110 Network 1/0 Routines 15-se0-1984 $334 744 VAX-11 Bliss-32 Ma Phed Page 43 

v04=- NCPSREADRSP Read and Decode an NML Response 14-Sep-1984 12:48:14 DISKSVMSMASTER:CNCP.SRCINCPNETIO.B32;1 (14) 

3 3 1 1499 4 THEN . 
3 151 1500 BEGIN ! Put out in some standard way = 
; 1514 P 1501 $FAO -, 
; 1515 P 1 ¢ ( e | 
: 1 18 P 1 ASCID ("detail # !UW'), - 
; 151 P 1504 OUTLEN . 
: 1518 P 1505 UPLIT (DTLSIZ-1, DTLBUF+1), : | 
3 1326 P 1 $ sDETAIL : 
; 1521 13 8 DTLBUF [OJ = .OUTLEN; ! As counted string e | 
3 15 ; 1509 DTL = DTLBUF e | 
3 1 1319 END :, 
: 1524 1511 4 END ; | 
; 1525 121g 3 END s 
> 1526 151 : 3 | 
; 1527 1514 * 
: 1528 1515 IF .CTR GEQU 4 ' If there is enough for system . 
3; 1529 1516 § THEN ! Specific error text $ | 
; 1530 1517 BEGIN = 
3 1531 1518 4 IF .CTR GEQU (4 + .(.PTR+3) <0, 8, 0> ) ; -, 
3 1336 1519 3 THEN ! And the text is valid 3 | 
3: 153 1330 4 BEG! . 
3 1534 1521 4 ERR = .PTR + 3; ! Point to the counted string eB 
3; 1535 1356 4 LEN = .CTR = (,¢(.PTR#3) <0, 8, 0>) - 4; ! Adjust returned Longeh . | 
> 1536 1523 5 “BFR = ..BFR + 4 + (.(.PTR+$) <0, 8, O>3 | And buffer beyond i 3 | 
3; 1537 1524 4 END > 
3; 1538 ie ELS ' Tell the world its not clean . ‘| 
: 1539 1526 3 ERR = UPLIT (ZASCIC ‘%NCP-W-ERRRSP, invalid error text in Listener response’) ; 

: 1540 1527 3 D 3 | 
3 1541 1528 ; $ 

3 1266 136? $ 
3 154 1530 3 | 
3 1544 1531 2! a4 
3 1545 1336 ! Signal the error to print it . 7 
> 1546 153 i 3 | 
3 1547 1534 3 | 
Z 1383 1332 IF ..LEN NEQ 0 ! Is there an entity for the message | 
3; 1550 1537 NOT .SHO ! and this is not a show or List 3 | 
: 1551 1538 THE 3 

3 1326 1539 BEGIN 3 

3 155 1540 LEN = 0; ' Return no data to caller 3 

3 1554 1541 ENTDSC 63 = ENTSIZ - 1; ' Descriptor for output is buffer 3 

3; 1555 1366 ENTDSC C1] = ENTBUF + 1; ' Less one byte for count ; 

3; 1556 154 ENT = ENTBUF; ! Set counted string address 3 

; 1557 1544 IF .NCPSGL_FNC_CODE NEQ NMASC_FNC_TES ! Loop return with test data : 

: 1558 1545 THEN $ 

3 1559 1366 4 BEGIN : 

3; 1560 1547 4 PTR = ..BFR; ' Set pointer to entity code : 

3 1561 1548 4 NCPSFAOSET (); ! Setup conversion routines 3 

3 1206 1549 4 NCPSSHOENTITY (PTR); ' Convert to fao parameters 3 
: 156 1550 4 NCPSEAOL (ENTDSC) i Convert to text | ; 
3 1564 1551 4 ENTBUF CO) = .ENTOSC [0]; | Make counted string | ; 
3 1565 1336 4 D 3 

3; 1566 1553 3 Ss ; 
3 1567 1554 4 BEGIN BY 
: 1568 P1555 4 $FAO ' Convert test data if loop return | : 

| 
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; 1569 P 1 4 ( 
; 1570 P 1387 4 ( 
; 1571 P 1558 4 IF .CODE EQL NMASC_STS_PVA ! Special case the text for 
3; 7 Lf P 1559 4 THEN ASCID ("Maximum data length = 'UW') ! a loop message 
: ! 7 . 1361 ? ELSE ASCID ("Messages not looped = !UW') 
: 1375 P 136¢ 4 OUTLEN, 
: 1576 P 1565 4 ENTDSC, ! Descriptor of buffer 
; lore P 1365 ? geoarr ! Stack the data (word of loop count) 
; Hs 1367 2 ENTBUF CO] = .OUTLEN ! Set counter for this message 
; 1581 1568 3 END 
; 1256 1569 2 H 
; 18p2 1399 $ IF CHSRCHAR(.DTL) NEQ 0 ! if followi 
; e 4 text . 
: 1886 1258 $ THEN OMA UPLIT(ZASCIC ',') ! th is at et en 
: 1887 1874 5 = o Js : then delimit with a comma 
3; 1588 1575 § IF 
3; 1589 1576 ( 
: 1894 1398 4 CODE NEQ NMASC_STS_MOR ' if d 
: 1382 iene ¢ . oo 8 ! a not a success code 
3; 159 1580 4 -CODE NEQ NMASC_STS_SUC 
3: 1594 1581 4 
: 1332 1286 : -CODE NEQ NMAS$C_STS_DON 
> 1597 1584 4 CODE NEQ NMASC_STS_PAR 
3; 1598 1585 4 ) 
: 1200 1889 : CHSRCHAR (.RSP) NEQ 0 ! d th is h 
ayy a é ' an e response message is here 
3 Ione 1589 § OR 
: 1h? 1290 § “aes (.DTL) NEQ 0 ! or any of the text strings are here 
: 1605 139¢ 2 CHSRCHAR (.ERR) NEQ 0 ! then print the error 
3: 1606 1593 2 THEN 
3; 1607 1594 2 SIGNAL (NCPS_NMLRSP, 5, .RSP, .COMMA, .DTL, .ENT, .ERR) 
: 
3 1610 1597 RETURN .CODE ! Return data to caller 
3: 1611 1598 2 
3 1612 1599 1 END; 


-PSECT SPLITS,NOWRT .NOEXE,2 


1 
<12>\unrecognized\<0><0><0> 


00 00 64 65 7A 69 6E 67 6F 63 65 72 6E 75 1 
I <0><0><0><0> 
I <0><0><0><0> 
I <0><0><0><0> 
I <0><0><0><0> 
75 74 65 72 20 74 6€ 65 6D 65 67 61 6 ] 


\management return # !SB\<0> 
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yon b00 NCPSREADRSP Read and Decode an NML Response 1a-Sep- 3B 93° :14  DISKSVMSMASTER: CNCP. SRC memecro.eszi tu 
000000006 8F oD PUSHL #NCP$_NETIO ; 
000000006 Bo FB 00st CALLS #e, LIBSSTOP at 
AE D 8 1$ MOVL NERY, RO : 1278 
A MOVL (RO). CTR ; | 
34 AE 00000000' 9 ; 4 MOV NCPS$Gf_RSPBFR, PTR + 1279 
24 BE cA 4 MOVCS CIR 12(R0), aPTR :4 80 | 
10 AE 0c aA? SE 00 af MOVAB 12(R7), LENGTH + 1281 
OC AE OF 005 PUSHAB ENTRY + 1282 
14 AE oF 36 PUSHAB LENGTH : 
000000006 00 FB 0005 CALLS #2, LIBSFREE_VM : 
F 11 0006 BRB 3 ; 1268 
— 7C 09 2$ CLRQ  =(SP) + 1293 
ge 7¢ CLRQ =(SP) : 
7E O3E8 BF 3C 00066 MOVZWL #1000, -(SP) : 
00000000' 90 9F 00068 PUSHAB NCPSGT_RSPBFR : 
— 7C 00071 CLRQ = = (SP) : 
74 AE 9F 00073 PUSHAB 10SB : 
31 bp 0076 USHL #49 : 
7E 02 A2 3¢ 0007 MOVZWL 2(R2), =(SP) : 
7E 04 0007C¢ CLRL 5 ($P) : 
000000006 00 OC FB OO07E CALLS #12, SYS$QI1OW ; 
54 AE 9F 0008 PUSHAB 10SB + 1294 
50 0D 00088 PUSHL STATUS F 
000000006 8F DD O00BA PUSHL #NCP$_NETIO ; 
FDE3 CF 03 FB 00090 CALLS #3, NUPSSIGNETERR : 
57 56 AE 3¢ 00095 MOVZ2WL 10SB+2, CTR : 1296 
24 AE 00000000' 00 9€ 00099 MOVAB NCPSGT_RSPBFR, PTR : 1297 
14 AE 00000000' 00 9€E 000A1 3$ MOVAB P.AAL, RSP + 1304 
08 AE 00000000° 00 9E 000A9 MOVAB * COMMA : 1305 
20 AE 90000000" 0 9E 00081 MOVAB P.AAN. DTL + 1306 
04 AE 00000000' 00 9€E 00089 MOVAB P.AAO, ENT + 1307 
6E 00000000' 00 H 000C1 MOVAB P.AAP, ERR : 1308 
57 05 000C8 TSTL = CT : 1310 
1D 12 OOOCA NEQ 4$ : 
6E DD 000CC PUSHL ERR : 1312 
08 AE DOD O00CE PUSHL ENT ; 
28 AE DD 00001 PUSHL DTL ; 
14 AE DD 000D4 PUSHL COMMA ; 
24 AE DD 90007 PUSHL P : 
0 DD OOODA PUSHL &# ; 
000000006 8F DD d000¢ PUSHL #NCP$_NMLRSP : 
000000006 00 07 FB OE CALLS #7, LIBSSTOP : 
58 24 =A p0 OO00ES 4$: MOVL PTR, R + 1315 
SA 4 3 OE CVTBL (RBS, CODE F 
14 ar F OOOF PUSHAB RSP : 1318 
000000006 Q 9F O00F PUSHAB NCPSGA_TBL_NMLSTS ; 
7E A 9A OF MOVZBL CODE, = > 1319 
00000000v 00 3 FB 99 FC CALLS #3, NCPSTABLESEARCH ; 
28 0 €8 001 BLBS RO, 5$ : 
A BD 4 PUSHL + 1332 
000000 9° 00 9F 001 PUSHAB P.AAS : 
AE 9F 001 PUSHAB OUTLEN : 
00000000° 0 9F 0011 PUSHAB P. : 
99 9000¢ 00 4 FB 00117 CALLS #4, SYSSFAO ; 
000000 38 Ar 11 MOVE OUfLEN, RSPBUF : 1333 
14 AE 00000000 0 E 12 MOVAB RSPBUF, RSP : 1334 
1 AE 1 CE OO12E S$: MNEGL #1, DETAIL : 1338 
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yon 600 NCPSREADRSP Read and Decode an NML Response 12-80 8-19be 9352834 DISKSVMSMASTER:CNCP. SRC NCPNETIO.B32:1> (14) 
03 7 D1 001 CMPL TR, #3 : 1340 
3 : 1 BGEQ § : 
o1FD 1 $$ BRW é $ : 
1c oA 01. OA 13 7$ CVTWL 46. 1(R8), DETAIL + 1343 
FFFFFFFF © BF .: p 135 CMPL DETAIL, #- + 1344 
gE 147 BEQL ; 
FFFFFFEE 8F 3A p 149 CPL ODE, #-18 + 1351 
L Py 
FEFFFFF2 8F 5A 01 001 2 CMPL ODE, #-14 : 
12 19 001 BLSS : 
FFFFFFF3 8F A D1 001 CMPL ODE, #-13 ; 
9 14 001 BGTR ; 
59 000000006 0 1 8$ HOVAB NCPS$GA_TBL_FOPDTL, DTLTBL : 
FFFFFFEB BF sf D1 O16 9$ CMPL CODE, #-21 + 1354 
09 13 00174 BEQL ; 
FFFFFFED  8F A Di 00176 CMPL CODE, #-19 ; 
9 12 0017D BNEG ; 
59 000000006 : 9 O17 108: MOVAB NCP$GA_TBL_NCEDTL, DTLTBL : 
FFFFFFE7  8F SA OT et 11$: CMPL CODE, #-25 + 1357 
09 12 018F BNE ; 
59 000000006 00 9€ 00191 MOVAB NCPS$GA_TBL_OPEDTL, DTLTBL : 
41 11 00198 BRB ; 
FFFFFFFS  8F 5A 01 0019A 128:  CMPL CODE, #-11 + 1360 
12 13 OO1A1 BEQL 13$ ; 
FFFFFFF7 8F SA D1 0O01A3 CMPL cope. #-9 3 
23 19 OO1AA BLSS 15$ : 
FFFFFFF& 8F A D1 OO1A CMPL CODE, #-8 : 
1A 14 0018 BGTR ; 
000000006 00 05 0018 13$:  TSTL NCPSGL_ENTITY + 1362 
09 18 00188 BGEQ 148 : 
59 000000006 Q 9€ 00180 MOVAB NCPSGA_TBL_VMSENTDTL, DTLTBL : 
15 11 001C4 BRB 17$ : 
59 000000006 00 H 01C6 14$:  MOVAB NCPSGA_TBL_ENTDTL, DTLTBL ; 
0c 11 001CD BRB 17$ ; 
1C AE DS OOICF 15$: TSTL ‘DETAIL > 1369 
0 iF 0102 BNEQ : 
59 01 D0 00104 MOVL #1, DTLTBL : 
g 11 00107 BRB 17$ : 
D4 00109 168: CLRL  OTLTBL : 
FFFFFFE7 8F A 01 O18 17$:  CMPL CODE, #-25 : 1378 
OF if O1E BNEG : 
50 000000006 99 D Oie4 MOVL ON PSGL_ENTITY, RO > 1380 
01 D1 OO1EB CMPL  =séORO, @ : 
g 13 Ole BeEQL 4 =-:«4198 : 
03 D1 OO1F CMPL Re a3 ; 1383 
p 3 OO1F3 18$ Bea. «4=s«éd198 ; 
00 1 OO1F BRW 23$ : 
53 2c «AE «9E 001F8 19$:  MOVAB PREBUF, LOCPTR : 1395 
04 AB 03 «AB C 3A FC LOCC «6 #44, 30RB), 4(R8) : 1407 
¢ 2 BNEQ 20$ 3 
ps CLRL ss R1 ; 
50 04 As 20$: MOV 4(R8), RO ; 
56 1 C A SUBL3 RR Rf. PRELEN : 
63 OAOD BF ; 5 move #2573, (LOCPTR) > 1411 
56 20 6E 0 2c MOVCS #0, (§P), #32, PRELEN, 2(LOCPTR) > 1412 
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ge A3 18 : 
3 202¢ BF 80 1A MOVW #8236, (LOCPTR) : 
4 1F ADDL2 #4, PRELEN : 
03 Ag A 2 MOVZBL 3(R8) R : 
4 A04 ; ovAB. 4(RO)ER8], LOCPTR : 
38 D B CLRL _—sXINDEX : 
37 1c AE B €1 218: BC INDEX, DETAIL, 22$ : 
20 Ag F PUSHAB DTL : 
2 DD PUSHL DTLTBL : 
DD PUSHL INDEX : 
00000000v 00 9 FB 9 CALLS #3, NCPSTABLESEARCH : 
¢6 § 4 BLBC RO, 22$ : 
1 20 BE SA 0004 MOVZBL a@DfL, R1 : 
21 : C0 4 ADDL2  PRELEN, R1 : 
50 8 ¢ 024A SUBL LOCPTR RB, RO : 
50 03E8 £0 E 00 af MOVAB 1000(R6), RO ; 
50 1 D1 0025 CMPL = R1, RO : 
11 14 00 56 BGTR 22$ ; 
V LEN, PREBUF, (LOCPTR) : 

63 2c AE 56 28 00 MOVC3 PRELE a 
50 20 ar DO 00 5D MOVL  ODTL, RO : 
51 $ 9A 00261 MOVZBL (ROS, R1 : 
63 01 AO 1 28 00264 MOVC3  R1, {(RO), (LocrR) : 
cO 38 10 F3 00269 22$:  AOBLEQ #16, INDEX, 218 : 
5 58 ¢ 026D SUBL2 R8, R : 
03 As 53 04 0 £9 #4, R3, 3(RB) ; 
57 3 90 0027 MOVB ; ; 
59 oi DO 00278 MOVL #1. DTLTBL 3 
00000000' 00 94 00278 CLRB = OTLB : 
20 AE 00000000' 00 9€ 00281 MOVAB OTLBUF, DTL : 

68 11 00289 BRB 

FFFFFFFO  8F 5A D1 00 88 23$: CMPL CODE, #-16 : 
gD 13 0029 BEQL 4$ F 
FFFFFFE9  8F A p4 0 34 CPL CODE, #-23 : 
FFFFFFEA 8F gh D1 00290 CMPL CODE, #-22 ; 
1B 13 002A4 BEQL 4 : 
FFFFFFFA 8F SA D1 0026 CMPL CODE, #-6 ; 
12 13 OO2AD BEQL ; 
FFFFFFES  8F 5A bt 0 A CMPL ODE, #-27 ; 
FFFFFFE3 8F A 0] § B8 CMPL cove, #-29 ; 
2 12 002BF BNEQ $ : 
18 AE 9F 002C1 248: | PUSHAB JUNK : 
36 AE F C4 PUSHAB OUTLEN ; 
00000000" 0 F 002C PUSHAB P.AAT ; 
7E 1 7D 002CD mova =o #i,_-=(SP) F 
30 AE 9F 0020 PUSHAB DETAIL : 
000000006 0 DD 002D SHL NCPSGL ENTITY ; 
00000006 00 F D CALLS #7, NCPSFORMATPARM : 
0000000" 38 AE é MOVE OUfLEN, DTLBUF ; 
2 AE 00000000' ’ E MOVAB ODTLBUF, F 
5 1 = F MOVL #1, DTLTBL ; 
01 9 D4 F3 25$ CMPL TLTBL, #1 F 
F F BEQL 7 ; 
9 D F TSTL DIL TBL : 
12 1 FA BEQL 6 ; 
20 AE OF OOZFC PUSHAB DTL ; 


| 
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PALS SPE HS 
VINVININS SLE fw 
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G FF PUSHL DTLTBL é 
24 H op 1 PUSHL DETAIL : 
00000000v 99 8 Fe CALL i. NCPSTABLESEARCH : 
E BLBS RO. 278 ; 
1¢ AE ODD : 26$ PUSHL DETAIL + 1507 
00000006" 0 oF 1 PUSHAB P.AAW : 
sot AS OF OSTA BUSHAB BUARGY : 
900000006 99 8? FB 9 CALLS #4, SYS$FAO : 
0000090" 0 38 AE 9 VB -OUTLEN, DTLBUF : 1508 
0 AE 00000000" 6 4 F MOVAB DTLBUF, DTL + 1509 
04 pi i 278: CHP $08" as ; 1515 
30 03 if 9A 0 C MOVZBL 3(R8), RO : 1518 
26 + $f bo%e copes etR RO. ; 
if 1F 0 4 BLSSU 28S" : 
6 03 AB GE 0034 OVAB (RB), ERR > 1521 
$8 MEU th, pe 
08 8 FC OA Sf 0035 OVAB -4(R7), @LEN ; 
a me ee ewe 
oc aC 04 Ad oF 00 66 MOVAB 4(ROS, aBFR : 
07 11 0036 BRB 29$ : 
6E 00000000" 00 9€ 00367 288: MOVAB P.AAX, ERR : 1526 
oan can ae 
54 10 AC €8 00 i BLBS SHO, 30$ + 1537 
08 BC D4 0037 CLRL aueN : 1540 
00000000" 00 1F DO O037A MOVL #31, ENTDSC : 1541 
00000000" 00 00000000' 00 9E 00381 MOVAB ENTBUF+1, ENTDSC+4 ; 1348 
0% 15 doo000006 80 BT OO806 CMPL’ CPSELCFNC CODE, #18 : 13ez 
sm om ae ORE Eh tse 
000000006 00 ae 00 FB 0 Ag CALLS #0 NCPSFAOSET ; 1348 
000000006 gi FB 00 AC CALLS #1, NCPSSHOENTITY ; 
000000006 00 sntratentee! ° rr 8 8 attics ENTDSC AOL i 
00000000" 00 00000000° 09 #0 0 CO so HOVE nfosc. ENTBUF 155 
DO 003CD 31$: VL a@BFR, RO : 1565 
™ woo BR REL Fale I. : 
$3 AE 9F BS PUSHAB OUTLEN : 
FFFFFFFO 8F SA D1 0030 CMPL CODE, #-16 : 
9 12 O03E BNEO $ : 
50 00000000' : 1 E MOVAB P.AAY, RO : 
50 00000000" SE OOSEE 328:  ROUAB PABA, RO : 
90000006 00 rB iS s: CALLS #4 elaine ; 
' A F MOVE fLEN, ENTBUF > 1566 
ae = af 4 406 34 CLRL : 1839 
20 BE 95 004 TSTB = @DTL : 
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A 13 004 BEQL 35$ 
8 6 004 INCL 
08 a5 00000000' 4OF MOVAB P.ABC, COMMA 1573. 
0 A p 417 35$: CMPL GORE. a 1578 
18 41A BEQL 6$ 
01 SA » 41C CMPL GORE. #1 
13 4iF BEQL 6$ 
FFFFFF8O 8F A ? 421 
A 428 BEQL 6 
03 AD 2A CMPL ODE, #3 1584 
5 1 42D BEQL 6$ 
14 2 4 2F TSTB a3P 1587 
1 452 BNEQ 7 
05 5 434 36$: 738 RO, 37$ 90 
00 BE 437 TS ERR 1592 
1D 1 43A BEQL $ 
6E DD 0043C 37$: PUSHL ERR 1594 
5 AE DD 004 PUSHL ENT 
AE DD 0044 PUSHL ODTL 
AE 0D 00444 PUSHL COMMA 
Mi ag DD 00447 PUSHL RSP 
8 DD 0044A PUSHL 5 
00000000G 8F DD 0044 PUSHL eacrs NMLR 
00000000G 00 H FB 0045 CALLS #7, LIBSSIGNAL 
50 A 00 00459 38$: MOVL C RO 1597 
be 0045C RET 1599 


; Routine Size: 1117 bytes, Routine Base: S$CODES + 0580 
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ZSBTTL ‘NCPSCONERR Decode an NML Respanse” 
GLOBAL ROUTINE NCPSCONERR (COUNT, MSGBFR) = 


1 


o 
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lee 
' FUNCTIONAL D° “RIPTION: 


—b Sb sa 


This routine is for the CONNECT routine to have an easy way 

to process NICE error messages. 

If the message is an error response, the error is signaled and 
control does not return to the caller. 

If the error status is SUC, DON or MOR, and there is a detail 
or error message, an error is signaled to print these but 
control returns normally to the caller. 


If an error contains data, it is assumed to be an entity for the 


VON OO ONOUNES WN —OVOOnNOUS 


PAEAAAAAAA AAAS AAA AAA AAAAAA OS 


SESS SSS Sone 


3 3 16 1 ; 
5 16 1 : 
sy 16 1 : 
3; 3 16 1 . 
3; 16 1 : 
3 16 1} “ 
3: 1 16 8 : 
3% 16 1! : 
3; 3 16 1! : 
3; 3 16 1} ; 
3 16 1: ° 
3 3 19 1! : 
3 1 1 +! ‘ 
’ ie | ; 
3% 16 1} error and the entity code is formatted and included in the error : 
3% 16 1} message. Entity codes may also occur with success codes and in ‘ 
3 1 16 1: this case the data is printed as an one ty f the message is not ° 
5 : 1? : a show or List command, indicated by the SHO parameter. : 
$ : 19 : FORMAL PARAMETERS: : 
3 7 16 7} COUNT Length of buffer containing NICE message : 
3 ; : MSGBFR Address of buffer containing NICE message : 
3 7 16 1 ! IMPLICIT INPUTS: : 
3: 1640 16 1! ‘ 
3 1641 16 1 ! NCPSGL_ENTITY Entity number sent in original message ; 
s 1966 1° : (If negative, then system-specific entity) ‘ 
: 1644 1630 1 | IMPLICIT OUTPUTS: : § 
> 1645 16 1! : 
: 1666 1632 1! NONE i@ 
> 164 1633 1! : § 
3; 1648 16 1 ! ROUTINE VALUE: : 
3: 1649 16 1 ! COMPLETION CODES: i¢@ 
; 1650 16 1! ; 
3: 1651 16 Value of first byte of message, or error signalled : 
3 1636 1638 1! ; 
; 165 1639 1 ! SIDE EFFECTS: : 
3: 1654 1640 1! : 
3; 1655 1641 1! NONE : 
Fy 1926 1642 1! ‘ 
3; 16 1645 1 !e- : 
; 1658 1644 1 . 
3; 1659 1645 BEGIN : 
: 1660 ioe ; 
; 1661 164 : 
3 1066 1968 LITERAL ; 
: 166 164 RSPSIZ = 32, ' Size of response buffer required 3 
3: 1664 1650 DILSIZ = 32, ' Size of detail buffer required : 
3: 1665 1651 ENTSIZ = ! Size of entity code buffer 3 
: 1666 1936 ; : 
3; 166 192 : 
3: 1668 1654 CAL ; 
3; 1669 1655 STATUS, ! Service status return 3 
: 1670 1656 OUTLEN, ! Length in a buffer 3: 


———_—_—_. 
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; 1671 1657 10SB8 : BBLOCK (8), ! Q10 status s 
; 1926 16 CTR, ! General temps + ¢ 
: 167 192 PTR, *¢ 
; 1674 1 LEN, * ¢ 
; 1675 199) BFR + ¢ 
; 1676 1 3 cope :¢ 
: 167 16 ENTI fy, ! Entity number (negative if sys-specific) :¢ 
; 1o78 1998 aene ! Pointer for response text . 
; 1980 1998 COMMA, ! Pointer to separator before detail 6 
: 1681 166 OTL, ! Pointer for detail text 
3: 1 ¢ 1968 ERR, ' Pointer for error text 
. 9 198 ENT, ! Pointer for entity code text 
3 1 1670 IDX, ! Index into tables 
s eH 1671 JUNK ' Throw away peaperers 
31 1676 DETAIL, ! Value of detail word 
3; 1687 167 DTLTBL ! Address of detail table 
>; 1688 1674 ; 
3; 1689 1675 
: 1690 1676 OWN 
3 1691 167 DTLBUF : VECTOR CDTLSIZ, BYTE), ! Detail buffer 
F 1oR6 1678 RGPBUF : VECTOR LRSPSIZ, BYTEJ, ! Response buffer 
; 169 1679 ENTDSC : VECTOR (2) ! Descriptor for string 
3: 1694 1680 ENTBUF : VECTOR CENTSIZ, BYTE] } Entity string buffer 
3: 1695 1681 : 
3; 1696 16 ; 
3: 1697 16 
3; 1698 1684 EXTERNAL LITERAL 
3; 1699 1685 NCPS_NMLRSP, ! NML response measege 
; 1700 1958 NCP$_NETIO ! Network communication error 
3; 1701 168 : 
: 170e 1688 
: 170 1689 ster 
; 1704 1690 NCPS$GA_TBL_NMLSTS, ' NML status return codes 
; 1705 1691 NCPS$GA_TBL_FOPDTL, ! File eperet ions detail codes 
3; 1706 1096 NCPS$GA_TBL_NC ! Network communications detail codes 
; 1707 169 NCP$GA_TBL_VMSENTOTL, ! Detail table of VMS specific entities 
: 1708 1694 NCP$GA_TBL_ENTDTL, ! Detail table of entities 
3 170? 1932 NCPS$GA_TBL_OPEDTL; ! Detail table of operation failures 
3 1711 1899 EXTERNAL ROUTINE 
; Hat 1698 NCPS$FAOSET : NOVALUE, ' Setup to convert entity 
3 171 444 NCPSSHOENTITY  : NOVALUE, ' Convert entity 
3 1714 1 4 NCPS$F AOL : NOVALUE ! Convert fao string for entity 
3: 1715 17 3 
3 irig 1706 
3; 171 170 
3; 1718 1704 LEN = 0; ! Set callers data 
; 1719 7 5 BFR = NCPSGT_RSPBFR; 
: 1781 1708 CHSMOVE (.COUNT, .MSGBFR, NCPSGT_RSPBFR); ! Copy data into buffer 
3; 17 5 1709 SHO = 0; 
+ 1724 1710 CTR = .COUNT; ! Point and count into message 
3; 1725 1711 PTR = NCPSGT_RSPBFR; 
3 17 $ HAL 
: 17 171 ! 


Bliss-32 V4. 


3 
/0 Routines 1S-se 1984 23:46:44 VAX-11 3 0-74 P 
® : 93:2 214 LEKSVMGHASTERSLNCP SRCINCPNETIO.B32047° (123 


Decode an NML Response 14-Sep-1984 D 


see 


22 
oe 
wer 
AL 
oo 
m 
———- we 


We need to set some defaults in case the message is bad 


_ 
—~ 
©wo 


! If message is short, signal now 


ON 
; SIGNAL_STOP (NCPS_NMLRSP, 5, .RSP, .COMMA, .DTL, .ENT, .ERR) 
CODE = .(.PTR) <0, 8, 1>; ! First byte is a code 
IF NOT a elaiets ! Find the code text if possible 
4 


-CODE <0, 8, 0> ! Code byte 
NCPSGA_TBL_NMLSTS, i Table 
RSP ! Return address of counted string 


ee ee i ee 


GI 
AO ! If not found, make some text 


‘management return # !SB'), 
RSPSIZ-1, RSPBUF+1), 


vuvUvUU 


DOONAVEWN “OO OONOUNE WN “OVO OVNOU FS Win 
a ee ee ee ee ee ee a dd ad od 


PAA BE PEPE EE 


SANS SSN 


S 


0] = .OUTLEN; ' As a counted string 
PBUF ! Point to it 


on 
wn 


DETAIL = -1; 


No detail yet 


IF .CTR GEQ 3 ! Is there a detail word 
THEN 


SSNS Ss 
SLSAaF 


NO 


Obtain the word 


GIN 
DETAIL = .(.PTR+1) <0, 16, 1>; 
L NEQ -1 ! Ignore value? 


DPA AAAI Be BS BS BEE BE EWAN WII POPININININININNY 4 St OS 


! Nope 
! Find a table to use 


Oo 


= 
GIN 
SELECTONE .CODE OF 


NMASC_STS_FOP, NMASC_STS_FIO, NMASC_STS_FCO) : 
NCPS$GA_ TBL_FOPOTL 


CNMASC_STS_MLD, NMASC_STS_MCF) : 
NCPS$GA_TBL_NCEDTL ! Network io errors 
} 


WIR 9 OONOA VE WN 9 ODNOA UNE WN CO OONOAUE WN (OO OONGUEWWN (OOONOUS 


NOUS WN —OO 


SAN 
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“ 
rove 
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' File i0 errors 
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Be Se Se Se Ge Se Se Ge Se Se Se Se Ge Ge Se Se Ge Se Se Se Se Ge Ge Ge Fe Ge Se Ge Se Se Ge Ge Se Se Se Ge Se Ge Se Ge Se Se Fe Se oe Se Se SH Se Ss Se Se ee St Shes ee 
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CNMASC_STS_OPE) : 


3 

NCPNETIO Network 1/0 Routines 1b-se 1984 23:46:44 VAX-11 Bliss-32 V4.0-74 Pa 
yO6n 600 NCPSCONERR Decode an NML Response 12-808-1 3b 93:2 714 DISKSVMSMASTER: CNCP.SRC NCPNETIO.B3204%" (1 
; VW 5 NCPSGA_TBL_OPEDTL ! Operation failure 
: 17 CNMASC_STS_CMP, NMASC_STS_IDE, NMASC_STS_STA) : 

7 ' Errors with entities 

f IF .NCPSGL_ENTITY LSS 0 ! If system-specific entity 

791 NCPSGA_TBL_VMSENTDTL ! VMS entities 

rg ELSE 

79 NCPS$GA_TBL_ENTDTL; ! DNA entities 

re bia ! Details not valid 

736 IF .DETAIL EQL 0 ' Zero is null detail here 

79 THEN ' Null detail if not valid 

798 ELSE 0 ! But report non zero detail 

44 END 

801 TES ; 

Ht END 

80 3 

804 


S 


fl -CODE EQL NMASC_STS_OPE If operation failure 


(.NCPSGL_ENTITY EQL 
NMASC_ENT_LIN 


.NCPSGL_ENTITY EQL 
NMASC_ENT_CIR) 


3 


and entity is Line 


33 


or circuit 
THEN 


BEGIN 
LOCAL 
PREBUF : VECTOR (40, BYTE], ! Buffer for string to proceed 
each detail message. 


i] 
( 
PRELEN, ' Length of string to proceed 

! each detail message. 
LOCPTR; ! Local pointer 


LOCPTR = PREBUF; ! Init pointer into buffer 


SOOSOSD0000 0000000000009 090909090909 INI NNN 
MEUM —O DONAUSWN (OOD NOULS AN OOONOUS WN 


er 


PUPP SPIO OPTS SISTINE STITT Se BS BS BP TUTOR OP OR OP OP UIT 4 


oo 


PIPIPIPIPIRY at et et ot ot ot ot 
oS 
NOUS WN—O0Oan 


2 09 Cd 09 Cn On Cd Cd Cd CD C9 CD CD OD OD CD 
SOWONOUSWN —“OOOnNOuUlwn—oO 


Build the string which will preceed the detail text so that each detail 
string output will Line-up under the error text. for example: 


Zfacility-L-ident, error text ! Original error message 


Stoel trek ene error text<CR><LF>  ! Message with two detail 
< SPACES >, detail text<CR><LF> ! strings appended. 
< SPACES >, detail text : 


PRELEN = ( CHSFIND_CH(.(.PTR+3),! Get the number of characters 
¢&. §c*,°) ! in the facility and ident 
- (Pfr + 4); i portion of error message 


-LOCPTR <0, 16> = ZX°OAOD'; ! Store <CR><LF> in buffer, 
LOCPTR = CHSEILL( zc’ ° -PRELEN, -LOCPTR + 2); ! some spaces, 
-LOCPTR <0, 16> = ZASCII', '; { “anda, 
PRELEN = .PRELEN + 4; ! Length = length of facility 


en i 


w 
~ 


0 09 0d Co Gd OO Go Gd Co G9 G9 09 Cd CD 


c) 


ww 
ee ee ce ce ce ee ce ce ce a ce ee ee ee ce ec ce ee ce ee ee cD ce ce ce ee ce cD ce ce ce ee ee et ee ce ee cD ce ce ce ee ee ee ee ee ee ee ed ed ed ed 


Be Se Se Be Ge Ge Se Fe Se Ve Ge Fe Se Fe Se Ge Se Fe Ge FF Se Ge Ge Ge Ge FH Se Ge Sse Ge Ge Ge Ge Ge Se Se SESE SE SES Oe Se Se Se Se Se Se Se Se Se eeSe Se Seeee 
ee ee ed ee ee ce ce ce ee ec ce el ee ce ee ee ce ee cel ce ee ee el cel el cel el el el cel cel el cel ell eee cel cel cel cel cl cel cll cecal cel cecal cel calls calls cls ld 
000090909 09 09 09 09 G0 00 Gd Gd 0 Cd Od C9 OD Cd OD Cd 0d 09 09 09 09 09 098 ISIS SII NINN NINN NSS SSS SNS SSS 


NOUS WN OOS 


PoRoPonononoforns 


FF 
-—oo 
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; 188 18 8 ! text plus <CR><LF> and "', "' 
> 1844 1830 LOCPTR = .PTR + 4 + ! Point to end of original 
3 ek ! 1 -(.PTR + 3) <0, 8 >; ! error message text. 
3 +} 4 18 § 3 INCR INDEX FROM 0 TO 16 DO 
; 1849 1835 6 IF .DETAIL < . INDEX, 1, 0 > ! If status or error bit is set, 
; 1850 1836 6 ! and it’s in the table, 
3; 1851 1837 6 NCPSTABLESEARCH (.INDEX, .DTLTBL, DTL) 
3 1826 1838 6 ! and there's room in the 
3; 185 i 9 6 -PRELEN + .(.DTL) <0, 8 > ! response buffer. 
3; 1854 1840 6 LEQ .PTR + NCPSC_RSPSIZ = .LOCPTR 
; 1855 1841 § THEN 
3: 1856 1346 BEGIN 
3; 1857 1845 7 LOCPTR = CHSMOVE ! Append the string which 
; 1858 1844 7 ( ! preceeds each detail message 
3; 1859 1845 7 -PRELEN, !' to the end of the error 
; 1860 1846 7 PREBUF ! message 
: 1861 1847 7 -LOCPTR i 
: 1866 1848 7 ); ! 
; 186 1849 7 
3 1864 1850 7 
3; 1865 1851 7 LOCPTR = CHSMOVE ! Append detail to end of the 
> 1866 1936 7 ! error message 
3; 1867 1853 7 -(.0TL) <0,8>, 
: 1868 1854 7 ‘ * i, ! 
3; 1869 1855 7 -LOCPTR ! 
; 1870 1856 7 $ ! 
3: 1871 1857 6 END; 
3 1376 1858 5 END; 
3: 187 1859 5 
3 1874 1860 5 (.PTR + 3) <0, 8 > = ! Update message length. 
3; 1875 1861 5 -LOCPTR - .PTR = 4; ! 
3; 1876 1866 5 CTR < 0, 8 > = .LOCPTR = .PTR; ! Update counter. 
3; 1877 1863 5 DILTBL = 1; ! Indicate that we formatted it 
: 1878 1864 5 DTLBUF (CO) = 0; ! Make sure we Don't print the 
3; 1879 1865 5 DTL = DTLBUF; ! detail # 
3; 1880 1866 5 
3; 1881 1867 5 END 
: 1S36 1868 5 
3; 188 1869 4 ELSE 
3 1884 1870 4 IF .CODE EQL NMASC_STS_PVA ! Special details for these 
: 188) 197] 4 ' Errors, its the parameter 
3 3 1 Le: 4 -CODE EQL NMASC_STS_PLO ' name 
3 1887 18735 4 
; 1888 1874 4 ~CODE EQL NMASC_STS_PNA 
3; 1889 1875 4 
3; 1890 1976 4 CODE EQL NMASC_STS_PTY 
3; 1891 is 4 
3 199% 1878 4 CODE EQL NMASC_STS_PGP 
3; 189 1879 4 
3: 1894 1880 4 -CODE EQL NMASC_STS_PMS 
3 1332 1881 4 THEN 
3 7 96 1 ; BEGIN 
3: 189 1 NCPS$FORMATPARM ! Format the parameter name 
3; 1898 1884 ( 


Be Se Oe Be Se Se Be Se Oe SH Se Se BH Se Se Se SF Se Se Se Se Se SH FH FH Se SH SH Ss oe Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se se Se Se Se se Seas 
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; 1899 1885 eNCPSGL_ENTITY, ! Entity is here : 
: 1900 1 § DETAIL, ! Parameter code is here : 
: 1901 1 TRUE ! Give the name ‘ 
; 190 1888 FALSE, ! Not the data ‘ 
; 190 1889 UPLIT (DTLSIZ = 1, DTLBUF + 1), ! Describe the buffer ; 
3; 1904 1890 OUTLEN, ! Length of text here ; 
: 1302 1993 he ! Return pointer to throw away : 
; 1907 1898 DTLBUF CO) = .OUTLEN; ' Set length of counted string . 
; 1908 1894 DTL = DTLBUF; ! Point to buffer ; 
: 1909 1895 DTLTBL = 1 ! Kill following check . 
; 1910 1338 END : 
3 1911 1897 4 : ; 
; 1318 1898 4 : 
; 191 1899 4 IF .DTLTBL NEQ 1 ! Unless we formatted it above ‘ 
: 1914 1900 4 AND > 
3 1915 1901 5 ( ; 
3; 1916 1DR6 5 -DTLTBL EQL 0 ! If there is no detail table ; 
3 1917 1903 5 OR ; 
; 1918 1904 6 ( ; 
; 484 ba ° IF_ .DTLTBL NEQ 0 ! Interlock for not in table check : 
3; 1921 1907 6 NOT NCPSTABLESEARCH (.DETAIL, .DTLTBL, DTL) 3 
3 1386 1908 6 ELSE : 
3 192 1909 6 TRUE ! Force conversion if not in table : 
3 1924 1910 6 ) ; 
: 1925 1911 5 ) > 
3: 1926 1912 4 THEN 3 
: 1927 1913 5 BEGIN ! Put out in some standard way F 
: 1928 P1914 5 $FAO ; 
$ 1368 P1915 5 ( F 
3; 1930 P1916 5 ASCID (‘detail # !UW'), : 
3; 1931 P1917 5 OUTLEN, 3 
; 1932 P1918 5 UPLIT (DTLSIZ-1, DTLBUF+1), 3 
3: 1933 P1919 5 »DETAIL F 
: 1934 1920 5 ); $ 
> 1935 1921 5 DTLBUF C0] = .OUTLEN; ! As counted string ; 
3: 1936 1956 5 DTL = DTLBUF 3 
3; 1937 19 5 END ; 
3; 1938 1924 4 END : 
3: 1939 1925 3 END 3 
3: 1940 19 § § 3 : 
3 1941 19 : 
3 13h 1928 IF .CTR GEQU 4 ! If there is enough for system 3 
3 194 1929 THEN ! Specific error text 3 
3 1944 1930 N : 
3: 1945 1931 4 IF .CTR GEQU (4 + .(.PTR+3) <0, 8, 0> ) 3 
3 1946 1936 3 THEN ! And the text is valid : 
3 1947 1933 4 BEGIN : 
3 1948 1934 4 ERR = .PTR + 3; ! Point to the counted perine 3 
3: 1949 1935 4 LEN = .CTR = (.(.PTR+3) <0, 8, 0>) = 4; ! Adjust returned length 3 
3 1930 1939 ? oh = {BFR + 4 + (.(.PTR#35 <6, 8, 0>)'! And buffer beyond it : 
: 195¢ 1338 ELSE ' Tell the world its not clean 3 
3; 195 1939 ERR = UPLIT (ZASCIC "ZNCP-W-ERRRSP, invalid error text in Listener response’) 3 
: 
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3 1368 $j 
; 194 | 
3 1328 1944 ! 
3 19 1945 ! Signal the error to print it ee | 
: 1960 1308 ! | 
: 1961 194 a4 
: 1206 1948 lf .LEN NEQ 0 ! Is there an entity for the message e- ] 
: 196 1949 AND 4 
3 1964 1950 NOT .SHO ! and this is not a show or List ] 
: 1965 1951 E g 4 
: 1966 1326 BEGIN 2-4 
: 1967 195 LEN = 0; ! Return no data to caller | 
3; 1968 1954 ENTDSC fo = ENTSIZ = 1; ' Descriptor for output is buffer | 
: 1969 1955 ENTOSC C1J = ENTBUF + 1; ' Less one byte for count | 
; 1970 1956 ENT = ENTBUF; ! Set counted string address - 
: 1971 1957 IF .NCPSGL_FNC_CODE NEQ NMASC_FNC_TES ! Loop return with test data a] 
3 1376 1958 THEN oe 
: 197 1959 4 BEGIN | 
: 1974 1960 4 PTR = .BFR; ' Set pointer to entity code ) 
; 1975 1961 4 NCPSFAOSET (); ' Setup conversion routines e 2) 
3 1976 196¢ 4 NCP$SHOENTITY (PTR); ' Convert to fao parameters ; 
; 1977 1963 4 NCPSF AOL (ENTDSC); ' Convert to text oe 
: 1978 1964 4 ENTBUF CO) = .ENTOSC [0]; | Make counted string g 
: 1979 1965 4 ND ee 
; 1980 1966 3 Ris) 
3; 1981 1967 4 BEGIN 

; 1356 P 1968 4 $FAO ! Convert test data if loop return 

; 198 P 1969 4 ( 

>; 1984 P1970 4 ( 

: 1985 P1971 4 IF .CODE EQL NMASC_STS_PVA ! Special case the text for 

: 1986 P 1376 4 THEN ASCID (‘Maximum data length = !UW') ! a Loop message 

3; 1987 P1973 4 ELSE ASCID ("Messages not looped = !UW') 

: 1988 P1974 4 a. 

3; 1989 P1975 4 OUTLEN, 

; 1990 P 1976 4 ENTDSC, ! Descriptor of buffer 

: Hb ad rE 14 ? BFR ' Stack the data (word of loop count) 

: 1998 1979 4 ENTBUF (0) = .OUTLEN ! Set counter for this message 

3 1994 1980 4 END 

: 1995 1981 3 END 

: 1996 1986 H 

: 1997 198 

3; 1998 1984 IF CHSRCHAR(.DTL) NEQ 0 ! If text following message, 

: 1999 138? THEN , 

$ oot + $ COMMA = UPLIT(ZASCIC ',"); ! then delimit with a comma 

: O08 1988 IF 

3 200 1989 ( 

: 2004 1990 4 ( 

; 2005 1991 4 -CODE NEQ NMASC_STS_MOR ! If a not a success code 

3 Boe 1936 4 

3; 200 1993 4 CODE NEQ NMA$C_STS_SUC 

3; 2008 1994 4 

3; 2009 1995 4 CODE NEQ NMASC_STS_DON 

; 2010 1238 4 

3; 2011 1997 4 -CODE NEQ NMASC_STS_PAR 

3; 2012 1998 4 ) 
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AND 
eee (.RSP) NEQ 0 


OR 
CHSRCHAR (.DTL) NEQ 0 
CHSRCHAR (.ERR) NEQ 0 


RETURN .CODE 


END; 
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! then print the error 
RSP, .COMMA, .DTL, .ENT, .ERR) 


! Return data to caller 
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! or any of the text strings are here 


PSECT S$PLIT$,NOWRT,NOEXE,2 


CII <0><0><0><0> 


“ASCII <0><0><0><0> 
AS 


CII <0><0><0><0> 


-LONG 23 
ADDRESS P.ABJ 
LONG 

es RSPBUF +1 
ADDRESS DTLBUF +1 
eASCII \detail # !UW\ 
-LONG 12 
eADDRESS P.ABN 
LON 

ADDRESS DTLBUF +1 ’ : 
\6ZNCP-W-ERRRSP, invalid error text in Li\ 


«LONG 25 

-ADDRESS P.ABR 

ASCII \Messages not 
«LONG 25 

eADDRESS P.ABT 

ASCII = <1>\,\<0><0> 
-PSECT SOWNS,NOEXE,2 


Bike | 33 


eASCII <12>\unrecognized\<0><0><0> 
eth <0><0><0><0> 


“ASCII \management return # !SB\<0> 


\stener response\<0> 


-ASCII \Maximum data Length = !UW\<0><0><0> 


looped = !UW\<0><0><0> 
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AE 00000000' 
AE 00000000' 
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AX- 
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X Bliss-32 V4. 
SKSVMSMA 


VAX=11 
DISKSVM 


32 


SCODES,NOWRT,2 
NCPSCONERR, Save R2,R3,R4,R5,R6,R7,R8B,R9, = 
-96(SP), SP 


LEN 
NCPSGT_RSPBFR, BFR 
ct “@MSGBFR, NCPSGT_RSPBFR 


COU 
NCPSGt_RSPBFR, PTR 


aNCPS NMLRSP 
#7, LIBSSTOP 


PTR, RO 

(R95, CODE 
NCPSGA = TBL .NMLSTS 
ee NCPSTABLESEARCH 
RO, 2$ 

CObE 

P.ABK 
QUTLEN 

YSSFAO 

Sut.Eh. RSPBUF 

RS PBUF seta RSP 

ere 
4$ 

24$ 
TCR9) DETAIL 
TAIL, #1 

ODE, #-18 
CODE, #-14 
CODE, #-13 


ac 33 
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9 14 QOOEF BGTR 6$ ; ae 
5A 000000006 0 95 Fl 5$: OVAB NCPSGA_TBL_FOPDTL, DTLTBL ; & 
FFFFFFEB  8F 10 aE Dt OFA 6$: cHPL CODE. #-21 : 1767 e 
FFFFFFED  8F 10 ar pi 4 cmPL cODE, #-19 : 
5A 000000006 09 96 001 78: MOVABNCPSGATBL_NCEDTL, DTLTBL ; 
FFFFFFE? © 8F 10 AE D1 00117 BS: CMPL CODE, #25 : 1770 : 
5A 000000006 09 9 00121 MOVAB NCPSGA_TBL_OPEDTL, DILTBL ; ; 
FFFFFFFS  8F 10 AE pt or A 98: CHPL CODE. #-11 * 1773 ; 
FFFFFFF? © 8F 10 AE pi 00134 CHPL CODE, #9 3 
FFFFFFF8 © 8F 10 AE D1 00138 CMPL CODE, -8 : ; 
000000006 % Ds O18 108: Ist NCPSGL_ENTITY ; 1775 ; 
5A 000000006 00 9 0150 MOVAE, NCPSGA_TBL_VMSENTDTL, DTLTBL : 
5 000000006 00 96 00159 118:  MOVAB_NCPSGA_TBL_ENTDTL, DTLTBL ; 3 
20 AE DS O16 128: ‘TSTL DETAIL + 1782 SS 
0 if 0016 BNEG 13S : ej 
SA 01 00 00167 MOVL #1, DTLTBL : 7 | 
2 11 00164 BRB 14$ : 2 
A 04 0016C 138:  CLRL  DTLTBL : | 
FFFFFFE7 8F 10 of 9 65196 14$: Ha FODE. #-25 : 1791 : ! 
50 000000006 90 8 0178 MOVL  NCPSGL_ENTITY, RO : 1793 . 
01 0 D1 0017F CMPL =-RO, #1 : Be 
08 13 00182 BEQL 16 : 
03 0 D1 00184 CMPL RO, #3 > 1796 
03 1300187 15$: BEQL 16$ : 
009D 31 00189 BRW 20$ : 
53 30 AE 9€ 0018C 16$:  MOVAB  PREBUF, LOCPTR 5 1808 
04 Ag 03 Ad C 3A 001 LOCC #44, 3(R9), 4(R9) : 1820 
65 12 00196 BNEQ 178 : 
ps 0198 CLRL RT : 
0 04 Ag § 19A 17$: NOVAB 4(R9), RO : 1822 
56 1 29 1 UBL3 RO, Ri, PRELEN ; 
0 ic 1A MOVZWL f r RO > 1824 
60 OAOD a C 1A MOV2WL #2573, (RO) : 
56 20 6E 1 is 2¢ AA MOVCS #0, (SP), #32, PRELEN, 2(LOCPTR) ; 1825 
50 3° Siar MOVZWL LOCPIR, R : 1826 
0 202¢ =F ¢ 1B4 MOVZ2WL #8236, (RO) : 
4 4 § 1B9 ADDL2 #4, PRELEN : 1827 
20 3 Aad 9A 001B MOVZBL 3(R9), R + 1831 
4 A049 Hi 1c mMOVAB 4(RO)ER9J, LOCPTR : 1 
14 AE 04 OOIC CLRL —sINDEX :4 
38 20. AE 14 AE €1 001C8 188: C INDEX, DETAIL, 19% > 4 
24 «AE OOF Ice PUSHAB OTL : 18 
SA DD 0010 SHL  DTLTBL : 
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1€ AE DD 00103 PUSHL INDEX ; 
00000000v 00 8 FB 106 CALLS a3, fpr : 
6 § 100 BLBC : 
1 24 A OO1E MOVZBL apt, + 1839 
50 3 Ole? suet PRELEN, 8 Rd, RO + 1840 
: 03E8 : se 1E MOVAB 1900(R (RO), RO ; 
1 01 OO1F CMPL : 
11 14 OO1F BGTR : 
63 30 AF 56 28 1F MOVC3 PRELEN, PREBUF, (LOCPTR) + 1847 
2 24 =A 1FA MOVL TL, R + 1853 
1 : A fe movZBL R § : 
63 01 AO oi MOVC 14h (LOCPTR) + 1855 
BD 14 =A 109 F 19$ AOBLEQ a8. x, 18$ : 1833 
3 5 0B SUBL2 = RY, ase + 1861 
03 Ad 4 0 OF SUBBS «= #4, RB, 3(R9) : 
2k ; 8 0 1 HOVE #1, DTLTBL : 1808 
90000000" 0 Be 0 18 CLRB (BUF + 1864 
24 AE 00000000" 0) 9E 0021F MOVAB ODTLBUF, DTL + 1865 
6— 11 00227 BRB 22$ : 1791 
FFFFFFFO  8F 10 AE D1 00 9 208 CMPL cODE, #-16 + 1870 
32 13 00231 BEQL i$ : 
FFFFFFE9  8F 10 AE D1 00233 CMPL CODE, #-23 + 1872 
28 13 00 BEQL 218 ; 
FFFFFFEA  8F 10 AE 01 00 CMPL CODE, #-22 + 1874 
1E 13 00 43 BEQL 1$ F 
FFFFFFFA 8 10 AE D1 0024 CMPL CODE, #-6 + 1876 
14 13 0024F BEQL 1$ : 
FFFFFFES  8F 10 AE 01 00251 CMPL CODE, #-27 + 1878 
OA 13 00259 BEQL 1$ F 
FFFFFFE3  8F 10 AE Di 00 5 CMPL SODE, #-29 : 1880 
32 12 0026 BNEQ 2$ : 
1¢ AE OF 00265 218 PUSHAB JUNK + 1884 
30 AE 9F 00268 PUSHAB OUTLEN ; 
00000000' 9F 00 68 PUSHAB P.ABL : 1889 
7E 01 70 0 1 va #i, -(SP) > 1884 
34 AE OF 00274 PUSHAB DETAIL ; 
000000006 00 DD 00277 PUSHL NCPSGL_ENTITY : 1885 
000000006 00 07 FB 0 7D CALLS #7, NCPSFORMATPARM : 
00000000' 00 3¢ AE 9 8 B  OUfLEN, DT : 1893 
24 AE 00000000' i ¢ MOVAB ODTLBUF. DTL + 1894 
SA 1D 94 MOVL #1, DTLTBL : 1895 
01 A : 97 228: CMPL DIETBL. #1 + 1899 
F A BEQL 4 : 
AD 9C TSTL DILTBL : 1902 
7 4 BEQL 3 ; 
24 AE 9F OOOA PUSHAB DTL > 1907 
SA DD 002A PUSHL DILTBL ; 
28 AE DD 002A PUSHL p ; 
00000000v 99 9 Fe CALLS TANCPSTABLESEARCH ; 
E AF BLBS 24$ ; 
Ar D Be 23$: PUSHL nO: 24 : 1920 
00000000' 00 9F 002B PUSHAB P.ABO : 
Ar F 000BB PUSHAB OUTLEN : 
00000000 0 F 0008 PUSHAB P.ABM : 
000000006 00 4 FB 002C CALLS #4, SYSSFAO : 


> NCP| 
FH 185 “ea 
-32 V4.0-74 0.832;1 (1 , 
ESecH0Ne GESMENE SMD ELAM lace ste) |: 
-Sep-1 48:14 : 133 ; 
1a-Sep-1984 B, QUTLEN, DTLBUF ; 19 5 3 
ines nse OV ; oT : 1 : 
rMEIJo Me NDEAAYO Routines. a pespo Of Sr R258 | bya BYLBOr Kawes fier | 
N a + : ° : 
vO 500 00000090" 00 soo00088 of DB 248 BLSsu fo, RO F ces 
ee eR gh 00985 ROVAB (ROD : 19% 
$1 ba ao oF Es aL ssy cm ERR + 1936 
' Ad 9E OODED suaL2 RO, Rf LEN £1939 
5 c 59 2 Ora MOVAS G(ROJCBFRIs BFR ; 1948 
AS note SE bodes BRE Sap, ERR : 1950 
8 sn 0 r? gis: Bove LEN : : 193? 
6— 00000000 3 D 8 - LBS SHO. 27$ 1988 
EB 0030. a 4 : 1938 
52 = 6 8 i =f a eA ENTDSC# 
1fF 00 : 1 de ar eee. Bhie CODE, #18 : 1260 
00000000" 90 90000000" 80 $e 00322 HPL ~_—* t 13e2 
00000" 00000" 030A BEQL TR : 
meee +5 Soovo000G F 3 00 1 ots Jor’nchernoset £1963 
, 80 FB 0887 PUSHAB PTR NCPSSHOENTITY : 1964 
8 E § 
000606 0 28 AE OOF $0 4) USHA ENT P$FAOL ; 1978 
sa oad 60 SF 00848 CALLS eNfosc ENTBUF ." 
000000006 00000000' 01 FB 99 of MOVB i$. é 
' ty B0828 o7s, Sod (BF : 
0000006 ecoeee” Te these : PUSHL C : 
rae 7 a : 
* 00 fh CODE, #- : 
NEG RO 
so wooowno: HB Gee Bia Pho, ; 
FFFFFFFO ‘ 9 00 7 BRB P.ABS, RO : 1979 
nieces 9 00380 $03: Pusne RO SYSSFA _“— 
oe Re SB pel ewtou 7 
90 RL r 
900000006 00 2 fe Be bo8e 318 S18 grt 1991 
00000000 é 3 3A BEQL RO : 
24 i 15 00590 INCL P ABU. COMMA ; 1993 
0 4 Al CMPL GORE. 3 
: 1995 
00° 00 AQ 328 QL aE. at : 
see ee Be a - 
1 86 10 i BERL OE, ve é 2000 
FFFFFF8O © 8F +4 i BF BEQL a 
10 OM Ol Ree TSTB 
03 | 3 BNEQ $ 
18 BF 1 C 
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44 = VAX-11 BLi $32 
14 DISKSVMSMASTER: tN 
RO, 34$ 
ager 
$ 
ERR 
ENT 
DTL 
COMMA 
RSP 
# 
aNCPS 
#7 PBS TONAL 
tobes RO 


0-74 
tbo sre 


—_ oe 


CSNCPNETIO.B32¢4%" (183 


003 
005 


; 2007 


e 
i 
. 
o 
a 
. 
e 
. 
eo 
o 
oe 
. 
e 


: 3019 


es 


4 
N T10 Network 1/0 Routines shes =1984 23:46:44 VAX-11 Bliss-32 V4.0-74 Pa 4 
Youn 500 NCPS$T 1{0, Rou Find an Entry in a Text Table Fa eet 1 93:28:44 ST EKSUMGMASTER CENCE. SRCINCPNETIO.B32¢4°" (105 


ZSBTTL ‘NCPSTABLESEARCH Find an Entry in a Text Table’ 
GLOBAL ROUTINE NCPSTABLESEARCH (CODE, TBL, RTXTC) = ! 


iat 


'¢ 


'e4 
: FUNCTIONAL DESCRIPTION: 


MFT 


This routine searches a gente for a word code and retyrns an 
address of a counted string of an associated text string. 


FORMAL PARAMETERS: 

CODE Value of the code word 

TBL Address of the table 

RTXTC Address to return the address of the counted string 
IMPLICIT INPUTS: 

NONE 


i 

i 

{ IMPLICIT OUTPUTS: 
i 

le 


RRERRRRRR RG Gg 


DONOUS Win —OO0O® 


ew www ole lolololelelelelelelelolololola) 


POPPIN NIPINININININIPOINPIPINPIPYAINNININININININYD 


050 

051 0 ROUTINE VALUE: 

B26 0 

05 038 

oee Sip Success or failure RTXTC set to ‘unrecognized’ if failure 
$28 041 SIDE EFFECTS: 

05 Og 

058 04 NONE 

059 

060 - 

061 

ss 

06 

064 LOCAL ! Pointer to the table 
065 TPTR : REF BBLOCKVECTOR C1, 4] 

6? 

068 


sRTXTC = UPLIT (ZASCIC ‘unrecognized'); 
TPTR ; 


INCRU IDX FROM 0 
dO 


Scan the table 


Look for the end first 


BEGIN 
IF .TPTR C.IDX, 0, 0, 16, 1) 
EQL ! Use a signed reference for this 


NOUS WN OO 


THE 


cssesss css 


SN NN 


N 
RETURN FAILURE 


Not found, return failure 


3 


If .TPTR ion, 0, 0, 16, 0) ! Look for the code (unsigned) 
4 Ove <0, 16, 0> 


ABL 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

BEGIN 
Code as a word 


Beepepeeeauueruvemeaee ea aT 


THE 


COMPLETION CODES: 
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ee as — 
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5 5 70 4 BEGIN ! Return the real address 
: 71 4 eRTXTC = ,TPTR She 2, 0. 16, { ' Make address from the offset 
Py 7 4 + TPTR C.IDK, . 0, 1 . 1 3 
5 75 «4 RETURN SUCCESS ! We found it 
3 74 & END 
: : 6 END 
3 ¢ OF RETURN FAILURE ! Better never fail this way 
5 2094 $79 END; 
00 00 64 65 7A 69 6E 67 6F 63 65 72 6E 75 45 it FS P.ABV: .ASCII <12>\unrecognized\<0><0><0> F 


-PSECT SCODES,NOWRT,2 


000¢ 00000 .ENTRY NCPSTABLESEARCH, Save R2,R3 7 2014 
oc eC 00000000" 00 E 0002 MOVAB P.ABV, @RTXTC 3 2053 
2 08 AC 00 OO00A MOVL BL, fPT + 2054 
51 D4 OO0E CLRL DX : 2068 
50 6241 DE 00010 18: MOVAL  (TPTR)CIDX], RO : 2059 
FFFE = BF 60 B81 00014 CMPW 3s (RO), #1 : 2061 
19 13 00019 BEQL : 
04 Ac 60 81 0001B CMPW (RO), CODE + 2068 
oF 12 OOO1F BNEQ r 
3 3 g 0021 ADDL2 #2, RO : 2071 
: 0024 CVTWL 6 (RO),,_RB : 2072 
0c BC 3 0 C1 00027 ADDL3 RO, RS, aRTXTC : 
0 01 BO 002C MOVL #1, R : 2073 
4 0002F RET ; 
51 D6 000 9 2s: INCL IDX + 2066 
oc 11 000 BRB 1$ : 
D4 00034 3$ CLRL = RO : 2079 
04 000 RET : 


; Routine Size: 55 bytes, Routine Base: S$CODE$S + ODD1 


i 
.PSECT $PLITS,NOWRT,NOEXE,2 


N T10 Network 1/0 Routin 5 se 4 VAX-11 Bliss-32 V4. 
youn b00 NEPSTABLESEARCH Find an Entry in a Text Table 1ackep-1one Woichite | PERKSUMCMASTERC CCE SeCINCPNETIO.03209% (196 


$039 3oBy § Et LUDOM 'End of module 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 
Name Bytes Attributes 
SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
races 1 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
N NOVEC, « RD ,NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 3 NOVEC,NOWRT, RD, EXE .NOSHR » LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


coowcss= $yabel§ conccese Pages Processing 
File Total Loaded Percent Mapped Time 
5SSDUA AS gf ay Marg HF gi sei 1 9776 0 581 00:01.0 
~EBsSaoukze: ENCE OBJ JNMA 3g: 887 33 é 47 00:00.7 
$255$DUA28: NEP: OBJ NCPLIBRY: 3 52 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NCPNETIO/OBJ=OBJ$:NCPNETIO MSRC$:NCPNETIO/UPDATE=(ENHS$:NCPNETIO) 
Size: 3592 coge + 2208 data bytes 
Ti 00:54.9 


Run me: 

Elapsed Time: 02:37.2 

Lines/CPU Min: 273 

een oe gag 15466 
ry ut 267 pages 

Compi Bay Complete 
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0268 Vaxrvins v4-o _CONF 


